[perl] array di stringhe

[preben]

Sono agli inizi con il perl, ed ecco il mio primo problema: vorrei costruire un array di stringhe, e non sapendo a priori la dimensione, ho pensato di farlo con un ciclo while, ma, dopo l'inserimento del primo elemento il programma termina.
Vi posto il codice:

#!/usr/bin/perl
 #creazione e manipolazione di un array di stringhe  
$risposta = "s"; 
while($risposta eq "s"){   
print("Inserire nome: ");   
$nome = <STDIN>;  
 push @nomi, $nome;   
print("Vuoi continuare? (s-n): ");   
$risposta = <STDIN>;  
 if($risposta ne "s"){    
 last;   
 }
}  
#visualizzazione output 
$num_elementi = scalar(@nomi); 
#restituisce numero elementi array 
for($i = 0; $i < $num_elementi; $i++){   
print("Hai inserito $nomi[$i]\n"); 
}

Mi sapete dire dov'è che sbaglio?
Ciao e grazie!

[MARTEDI]

metti il chop su STDIN altrimenti la variabile contiene anche l'invio (\r)

#!/usr/bin/perl
#creazione e manipolazione di un array di stringhe
$risposta = "s";
while($risposta eq "s"){
print("Inserire nome: ");
$nome = <STDIN>;
chop $nome;
push @nomi, $nome;
print("Vuoi continuare? (s-n): ");
$risposta = <STDIN>;
chop $risposta;
if($risposta ne "s"){
last;
}
}
#visualizzazione output
$num_elementi = scalar(@nomi);
#restituisce numero elementi array
for($i = 0; $i < $num_elementi; $i++){
print("Hai inserito $nomi[$i]\n");
}

[preben]

Ok funziona!
Mi spieghi, per piacere a cosa serve la funzione chop?
Ciao e grazie per l'aiuto.

[MARTEDI]

quando tu inserisci STDIN scrivi il valore e premi l'invio che per il codice farà parte della stringa.
Il comando chop toglie l'ultimo carattere della stringa, quindi l'invio.

[preben]

Ok, ora è tutto chiaro.
Grazie ancora.
Ciao!