my %seen=();

...
while(<INPUT_FILE>) {
  my @fields=split /=/;
  $fields[1]=/^(\d+)/;
  my $id=$1;
  $fields[2]=/^(\w*)/;
  my $name=$1;
  $seen{$name}=[$id,$fields[5]];
}