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