Select Code to Download

for my $line (@sorted_data) {
     print "$line \t $hash_count{$line} \n";
}

print map {"$_ \t $hash_count{$_} \n"} @sorted_data;