use Data::Dumper; ... print Dumper(\@array1), "\n";