sub foo { my $arg = shift; # ... } vs sub bar { my ($arg) = @_; # ... }