Select Code to Download

#!/user/bin/perl
use strict;
...
1 2 3
4 5 6
7 8 9

# print the whole thing with refs faster than for
# but you are destroying the AoA (matrix)
while ( defined ( my $aref = shift @$matrix ) ) {
    say $wfh "@$aref";
}

#!/user/bin/perl
use strict;
...
          Rate Module Manual
Module  1895/s     --   -84%
Manual 12054/s   536%     --

#!/user/bin/perl
use strict;
...
            '8',
            '9'
          ]