sub FOO () { 0 } sub BAR () { 1 } sub routine { my $bar = $_[BAR]; $bar += munge( $_[FOO] ); }