#Here are a few elements of the hash
%prolist = (

'1', 'CMD',
'2', '/bin/sh',
'3', 'rds',
'4', 'SysExec',
'5', '/oasis/bin/sysmenu',
'6', '/oasis/bin/TS_TextSrvcs',
}

foreach $val(sort keys(%prolist)){

		while(<@list>){
			if ("$prolist{$val}" eq "$_" ){
				$set = 1;
				last; }
                            }
		
	if ($set == 0){print "NF: $prolist{$val}\n"; }
	$set = 0;
}