perl -le 'sub scare { $_[0] = "boo!" } my $me; scare($me); print $me'

##</code><code>##

sub foo {
    my @args = @_;
    # ... do stuff ...  
}