[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!