codice:
foreach $row ($ts->rows) {
  print join(',', @$row), "\n";
}
Ah, in questo caso prende ogni valori del vettore in modo ordinato crea una stringa univoca con i valori separati dalla virgola.

TIPO:
@vet=('ciao','pippo','pluto');
print join('-',@vet); #OUTPUT: ciao-pippo-pluto

Capito?