sub foo($@) { my ( $first, @other ) = @_; # do something to $first return( $first, @other ); }