foreach $_ (keys (%list)){ 
                if (exists $list{$_}){