sub do_stuff { my $foo = shift; my $bar = shift; ... }