my %hash;
for (<DATA>) {
    s/^(\S+).*/$1/;
    $hash{$_}++
}
use Data::Dumper;
print Dumper \%hash;
__DATA__
817    5:00
817    5:00
817    5:15
123    4:45
817    5:30
495    7:45