Select Code to Download

my @key   = qw( chr fivep threep strand );
my @files = qw( file1.tab file2.tab );
...
foreach my $key (sort keys %c7) {
    say join "\t" => (unpack "A10l>l>l>" => $key), map { $c7{$key}{$_}
+ // 0 } @files;
    }