my %byname;
for my $record (
   {
      NAME => "Jason",
      EMPNO => "132",
   },
   {
      NAME => "Orange",
      EMPNO => "133",
   },
) {
   $byname{ $record->{NAME} } = $record;
}

print(Dumper(\%byname));