#! /usr/bin/perl
use strict;
use Data::Dumper;

my %hash;
/^(\d+).*/ and $hash{$1}++ for <DATA>;

print Dumper \%hash;

__DATA__
817    5:00
817    5:00
817    5:15
123    4:45
817    5:30
495    7:45