my $dolink=$data[0] !~ m/[\=\%]/; 
    for my $word(@data){ 
      $check++;
      print $fh_out '<td>';
      if($check==1 && $dolink ) {
         print $fh_out '<a href="'.$href.'" >'.$word.'</a>';   
         }
      else { print $fh_out $word;} 
      print $fh_out '</td>';
      }