use strict; use warnings; local $, = "\t"; my @array1= qw(Bob smith); my @array2= qw(Jen smith); print (@array1, @array2); print "\n"; my @arrays = (\@array1, \@array2); for my $row (0..$#{ $arrays[0] }) { print "$row: "; for my $array (@arrays) { print $array->[$row], ";"; }; print "\n"; }; __OUTPUT__ Bob smith Jen smith 0: Bob ;Jen ; 1: smith ;smith ;
In reply to Re^2: Matching Values in Arrays
by mikejones
in thread Matching Values in Arrays
by Dr.Avocado
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |