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