Select Code to Download

use strict;
use warnings;
...

print "date $_ appeared $days{$_} times\n"
    for sort {$a <=> $b} keys %days;

date 1 appeared 1 times
date 3 appeared 2 times
date 4 appeared 1 times
date 5 appeared 2 times