arrloop [\@first, \@middle, \@last], sub {
  my ($first, $middle, $last) = @_;
  print "Hello $first $middle $last\n";
}