Select Code to Download

use strict;
use warnings;
...
for my $contig (keys %processed) {
        print join (' ', $contig,  map { $_->{$contig} || 0}  @counts)
+ , "\n";
}