use Data::Dumper;
print(Dumper(\@array2));