while (<@list>){

##</code><code>##

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