foo(1);
foo(2);
sub foo {
    my ($foo) = @_;
    print "foo: $foo\n";
}