sub foo { my ($bar,$baz,@qux) = @_; # yadda yadda yadda } #### sub foo { print "$_\n" for @_; }