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