sub blah
{
  my ( $foo, $bar, $baz ) = ( shift, shift );
}