sub foobar {
 my $bar = shift;
 my $foo = shift;
 # do stuff
}