Select Code to Download

key1            key2            key3            key4            key5
$data{key1}[0]  $data{key2}[0]  $data{key3}[0]  $data{key4}[0]  $data{
+key5}[0]
$data{key1}[1]  $data{key2}[1]  $data{key3}[1]  $data{key4}[1]  $data{
+key5}[1]
$data{key1}[2]  $data{key2}[2]  $data{key3}[2]  $data{key4}[2]  $data{
+key5}[2]
...

my $col_width = 20;
my @keys      = sort keys %data;
...
        redo LOOP if exists $data{$_}[$i];
    }
}

my @keys = sort keys %data;
for my $i ( 0 .. $size-1 ) {
...
    chomp @ith_data; 
    print "@ith_data\n";
}