Select Code to Download

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 1
+67.
Use of uninitialized value in exists at C:\test\632320.pl line 161.
...

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

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

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