Select Code to Download

#!/usr/bin/perl
use warnings;
...
push @{ $array[$_] }, $column->[$_] for 0 .. $#$column;

Dumper($ref) eq Dumper(\@array) or die "Different";