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

print(Dumper(\%byname));

##</code><code>##

my $record = $byname{$name};

##</code><code>##

for my $name ( keys(%byname) ) {
    my $record = $byname{$name};
    ...
}

##</code><code>##

for my $name (
    sort { $byname{$a}{EMPNO} <=> $byname{$b}{EMPNO} }
        keys(%byname)
) {
    my $record = $byname{$name};
    ...
}

##</code><code>##

if (exists($byname{$name})) {
    # yes
} else {
    # no
}