while ($line=<$fhin>) { 
  ... 
  next if $data[0]=~m/[\=\%]/; 
  ... 
  place where you print out '<tr>'; 
  ... 
  for my $word(@data){ 
    ...