Select Code to Download

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

my @arr;
open (B, "temp.dat");
...
    my @temp = split //, $line;
    push @arr, [@temp];
}