foo('bar');

sub foo($) {
    print "foo called: @_\n";
}