$record = {
     NAME => "Jason",
     EMPNO => "132",
     (etc..)
};


##</code><code>##

$byname {$record->{NAME}} = $record;