Select Code to Download

use Modern::Perl;
use File::Slurp qw/read_file/;
...
say $tb;

say "\n", Dumper \%supermatrix;

      p1825 p1875 p2543 p2809 p3182 p3186 p3419 p3485 p3486 p3487 p348
+8 p3489 p3490 p3492 p3647 p3648 p3674 p3877
s2809   .     .     .     .     1     .     .     .     .     .     . 
+    .     .     .     .     .     .     .  
...
                      '3486' => '.'
                    },
...