sub foo {
 my ($foo, $bar) = @_;