Select Code to Download

use strict;
use warnings;
...
for my $id (sort keys %counts) {
    printf "%-12s: %5d\n", $id, $counts{$id};
}

Db04g787390.1:    28
Db10g029860.2:    34
Db96g938791.0:    25