do_stuff($foo, $bar, $foo_too, $bar_too, $foo_who_poo);

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

##</code><code>##

do_stuff(one=>$foo, two=>$bar, three=>$foo_too, four=>$foo_who_poo);

sub do_stuff {
   my %args = @_;
}