Je suis débutant en perl mais j'ai des notions en c et c++

Mon script demande a l'utilisateur d'entrer des mots jusqu'au moment ou il entre le caractère @ puis il trie la liste par ordre alphabétique et il l'affiche.

Je ne comprend pas pourquoi dans mon script au moment ou j'affiche ma liste il y ai un @

Si quelqu'un peux m'aider!

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
$nb_de_mots;
$mot;
$i=0;
$j=0;
@liste;
 
until($mot eq '@')
{
	print "\nEntre un mot, @ pour arreter\n";
	$mot=<STDIN>;
    chomp($mot);
 
	if ($mot ne '@')
	{
		push(@liste,$mot);
 
	}
	$i++;
 
}
 
@liste = sort @liste;
 
foreach(@liste)
{
	print "$_\n";
}