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