my @byhour = (0) x 24;
foreach my $hour (@hours)
{
    my ($knownhour) = $hour =~ /\s(\d\d)/;

    $byhour[$knownhour]++;
}

print "$_ had $byhour[$_]\n" for 0 .. $#byhour;