История изменений

#!/usr/bin/perl

my $href;
{
    open my $in, '<', 'dump';
    local $/;
    $href = eval <$in>;
    close $in;
}
my $numrecs = $#{ $href->{each $href} };
my @names = keys $href;

print join '', @{ $href->{'NAME'} }; # не работает
print @{ $href->{each $href} }; # работает
print @{ $href->{$names[1]} }; # тоже работает

#!/usr/bin/perl

my $href;
{
    open my $in, '<', 'dump';
    local $/;
    $href = eval <$in>;
    close $in;
}
my $numrecs = $#{ $href->{each $href} };
my @names = keys $href;

print join '', @{ $href->{'NAME'} }; # не работает
print @{ $href->{each $href} }; # работает