Select Code to Download

my %byname;
for my $record (
...
}

print(Dumper(\%byname));

my $record = $byname{$name};

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

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

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