my ( $foo, $bar, $baz ) = @_;
  ...