if ("$prolist{$val}" eq "$_" ){