Guys, THANK you, especialy Ikegami for taking the time to help me. I finally figured out the for-loop by writing in this way making it more clear to me:

my %byname;
use Data::Dumper;

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

print $byname{Orange}->{EMPNO};
[download]