while (1) {
    print "Hello world\n";
    &foo(++$i);
    sleep 1;
}

sub foo {
    local($j) = shift;
    print "Argument $j\n";
}