my %output=();
foreach my $k1(keys %pos2base2bin){
    foreach my $k2 (sort{$a <=> $b} keys %{ $pos2base2bin{$k1} }){
        push @{$output{$k2}},$pos2base2bin{$k1}{$k2}
    }
}

my @array=();
foreach my $k(sort{$a <=> $b} keys %output){
    foreach my $val(@{$output{$k}}){
        push @array,$val;
    }
}

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