Select Code to Download

#!/usr/bin/perl

...

my @finalmatrix = zip_by { [ @_ ] } @t;
use Data::Dump 'dd'; dd 'final matrix', \@finalmatrix;

(
  "original matrix",
...
    ["intron", "intron", "UTR_CG", "UTR"],
  ],
)