while (<DATA>) {
  chomp;
  my($id, $last, $first, $in, $out) = split /\|/;
  push @{$ID{$id}}, {
    LastName => $last,
    FirstName => $first,
    TimeIN => $in,
    TimeOUT => $out,
  };
}