foreach $batch_dates (@dates) { if ($count{$batch_dates}) { $count{$batch_dates}++; #print $count{$batch_dates} . "\n"; } else { $count{$batch_dates} = 1; } # end if } # end foreach foreach $key(keys(%count)) { print $key . " = " . $count{$key} . "\n"; } # end foreach }