sub arrloop {
  my ($arrays, $code) = @_;
  # keep calling code until we've been through all of the 
  # arrays.
  for (my $i = 0; 
       grep { $i <= scalar(@$_) } @$arrays; 
       $i++) {
    $code->(map { $_->[$i] } @$array);
  }
}