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