sub somesub {
   my ($first, $second, @list) = @_
   foreach my $element (@list) {
      # do something, possibly intelligent
   }
}

##</code><code>##

sub somesub_nocopy {
   my $first = shift;
   my $second = shift;
   foreach my $element (@_) {
      # do something, possibly intelligent
   }
}