do_stuff($foo, $bar, $foo_too, $bar_too, $foo_who_poo); sub do_stuff { my ($foo, $bar, $foo_too, $bar_too, $foo_who_poo) = @_; }