Select Code to Download

sub arrloop {
  my ($arrays, $code) = @_;
...
    $code->(map { $_->[$i] } @$array);
  }
}

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