Use of uninitialized value in exists at C:\test\632320.pl line 161.
Use of uninitialized value in null operation at C:\test\632320.pl line 161.
Use of uninitialized value in hash element at C:\test\632320.pl line 167.
Use of uninitialized value in hash element at C:\test\632320.pl line 167.
Use of uninitialized value in hash element at C:\test\632320.pl line 167.
Use of uninitialized value in hash element at C:\test\632320.pl line 167.
Use of uninitialized value in exists at C:\test\632320.pl line 161.
...

##</code><code>##

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

##</code><code>##

    if ($result) {
        foreach (keys(%{$hrefB})) {      ## No loop variable
            if ( exists $hrefA->{$k} ) { ## line 161

##</code><code>##

    ## my $k;
    foreach my $k ( keys %{ $hrefA } ) {
     ...
    if ($result) {
        foreach my $k (keys(%{$hrefB})) {      ## No loop variable
            if ( exists $hrefA->{$k} ) {       ## line 161