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

##</code><code>##

print foo( qw( one two three four ) ), "\n";