$x->GetValues(\%vals );
         $rec->{app} = $vals{DisplayName}[2] if ( exists $vals{DisplayName});
          if ( exists $vals{InstallSource})
          {
            $rec->{path} = $vals{InstallSource}[2];
         }
         else
         {
            $rec->{path} = 'N/A';
         }
         
         push (@source,$rec) if ($rec->{app});             
      }     
      $Key->Close;   
   }
}
print "\nListing Application information\n";
for my $apps (@source)
{
   print "DisplayName\t: $apps->{app}";
   print "InstallSource\t: $apps->{path}";
   print "------------------------------------------------\n";    
}