my %rec = {LastName=>$result[1], FirstName=>$result[2], TimeIn=>$result[3], TimeOUT=>$result[4]};
  my $thisrecord = \%rec;

##</code><code>##

  push @{$ID{$result[0]}}, {LastName=>$result[1], FirstName=>$result[2], TimeIN=>$result[3], TimeOUT=>$result[4]};