j'ai une boucle for qui me produit un champ vide a la fin de mon tableau comment pourrai je empeche cela?

 for my $i(map {clean($_)} @$row) {
 #chomp $i; 
 my $d = "<tr><td>$i</td></tr>\n";
 print $per_line_fh $d if ($i); 
 }
 print $per_line_fh "</table>\n</body>\n</html>";
 close $per_line_fh;
}
sub clean { 
 my $string = shift;
 $string =~ /\s*,\s*/;
 $string =~ /\s*,\s*/;

Salut j'ai un petit souci de concatenation, j'ai mon code qui me retourne des values avec

 print $per_line_fh map {clean($_)} @$row ;

de par et d'autre j'aimerai que lors de la sortie ceci me retourne avec certains characteres de html par et d'autre, a savoir:

print $per_line_fh "<tr><td>map {clean($_)} @$row</td></tr>" ;
malheureusement lorsque je je tape le Charactere "" la commande perl map n'est plus active et donc le resultat n'est plus ce que je j'attend.

je sais pas si (...)