for my $n (@nm1)
{
    print "\n$n:";
    no strict 'refs';
    for my $m (keys %{$n})
    {
        printf "\t%3s: %-8s", $m, ${$n}{$m};
    }
}