Select Code to Download

$VAR1 = {
          '' => [
...
                  ''
                ]
        };

$x->GetValues(\%vals );
         #print Dumper \%vals;
...
            print "$item";
         }   
         print "---------\n";

$x->GetValues(\%vals );
         #print Dumper \%vals;
...
         print "App : $rec->{app}
         print "Path :$rec->{path} \n";
         print "---------\n";

Use of uninitialized value in concatenation (.) or string at U:\script
+s\listapps4.pl line 23.
App :
...

App : Internet Explorer Q837251
---------

 $rec->{app} = $vals{DisplayName}[2] if ( exists $vals{DisplayName});
         $rec->{path} = $vals{InstallSource}[2] if ( exists $vals{Inst
+allSource});
         print "$rec->{app}" if ($rec->{app});
         print "$rec->{path}" if ($rec->{path});

$x->GetValues(\%vals );
         $rec->{app} = $vals{DisplayName}[2] if ( exists $vals{Display
+Name});
...
   print "------------------------------------------------\n";    
}