"//$_/c\$/Program Files/KaZaA Lite/kazaa.exe"

##</code><code>##

my %paths = ('KaZaA Lite' => 'c$/Program Files/KaZaA Lite/kazaa.exe',
             'KaZaA' => 'c$/Program Files/Kazaa/kazaa.exe');

foreach (@machine) {
    foreach my $key (keys %paths) {
        print "Bah! Someone installed $key on $_!\n"
            if (-e "//$_/$key");
    }
}