my $k;
    foreach $k ( keys %{ $hrefA } ) {