##
if ($condition) {
#code
} elsif ($condition) {
#code
}
##
##
foreach (@vals) {
$SubKey->GetValues(\%cvalues);
if ($cvalues{'Server'}[2] =~/NT-PRINT1/) {
print "something\n";
} elsif ($cvalues{'Server'}[2] =~/NT-PRINT2/) {
print "another thing\n";
}
}