for my $month ('02'..'03') {
  for my $day ('00' .. $mons{$month}) {
    for my $hour ('00' .. '24') {
      for my $minute ('00' .. '59') {
        $bucket{$month}{$day}{$hour}{$minute} = [0,0];
      }
    }
  }
}