map est fait pour ca

map permet d'appliquer une fonction à chaque élément d'une liste, il est donc dommage de boucler autour du résultat de map alors que tu peux continuer à l'utiliser. Tu peux en effet appliquer tout le code que tu veux à map.

Ensuite, l'opérateur de concaténation pour perl est le point si je me souviens bien.

Donc je pense que tu veux:

print $per_line_fh map {'<tr><td>' . clean($_) . '</td></tr>'} @$row ;

Maintenant si tu ne veux pas de lignes vides, il va falloir légèrement complexifier le map, mais tu peux t'en sortir en te basant sur quelque chose comme:

print $per_line_fh map {$tmp = clean($_); if ... } @$row ;