my %keyval = ();
   while(<KEY>){
        ($s1,$s2) = split(/,/);
         $keyval{$s1} = $s2;
   }

##</code><code>##

    if (exists $keyval{$c5}) {
       $custnmbr = $keyval{$c5};
       $flag = 1;
    }