Select Code to Download

$VAR1 = {
          '315' => {
...
                     '2' => 0
                   }
        };

sample  1   2   3   4   5   6   7   8   9   10
file1   0   0   1   0   0   0   1   0   0   0

my %output=();
foreach my $k1(keys %pos2base2bin){
...
}

print join("\t",$f,@array),"\n"; # $f is the filename