Select Code to Download

for( @original ){
    my $i = 0;
...
    my $i = 0;
    $transposed[ $i ++ ] .= chop while $_;
    }