my %counts_per_value; [... inside your while loop ...] $hash{ $first } = $third; $counts_per_value{ $third }++; [...] for my $value ( sort keys %counts_per_value ) { say qq{$value => $counts_per_value{ $value }; }