Select Code to Download

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

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