Select Code to Download

use strict;
use warnings;
...
   0 .. max(map { $#{ $_ } } @arr);

print Data::Dumper->Dumpxs([\@transposed], [q{*transposed}]);

@arr = (
         [
...
                  'sei'
                ]
              );