foreach my $aref (@array2) { print "$aref => @$aref\n"; }