Select Code to Download

$count_message[$hh1][$mm1]++;

use Data::Dumper;

...
}

print Dumper \%count_per_min;

$VAR1 = {
          '00:00' => 2,
...
          '01:03' => 1,
          '01:01' => 1
        };