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