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