Anonymous Monk,
The question is what do you do if your arrays are not of equal length? I suggest using one of the MapCar() from Algorithm::Loops.

#!/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";
}
[download]

You will want to read the friendly manual to see which function is right for you - this is just an example.

Cheers - L~R