#!/usr/bin/perl
use strict;
use warnings;
use Algorithm::Loops 'MapCar';

my @array1 = 'a' .. 'm';
my @array2 = 1 .. 10;
my @array3 = qw(john jacob jingle heimer smitz);

MapCar(\&print_arrays, \@array1, \@array2, \@array3);

sub print_arrays {
    print join "\t" , @_;
    print "\n";
}