sub fn1
 {
 while (<THE_FILE>)
   {
   $record = $_;
   $_ = uc($_);
   if (/$ucsearch/)
     {
     print "$record";
     $count++;
     }
   }
 close (THE_FILE);
 }