Help for this page
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; }
www.com | www.net | www.org
No recent polls found