Supprimer des éléments d'une liste

Salut tout le monde, je reviens avec une autre question plus simple je pense.

J'ai une liste avec soit 0 soit un mot. Je fais un sort de cette liste, ainsi je récupère d'abord les 0 et ensuite les mots.

Ma question est la suivante : comment faire pour supprimer tous les 0 ?

Je pensais faire ca :

Code:

---

1 2 3 4

while ($val eq 0) { $val = shift(@liste); }

---

Sauf que ca me supprime aussi le premier mot.
Je pensais compter le nombre de 0 et les supprimer ensuite mais ca me fait une boucle en plus.

Est-ce que vous avez une idée plus simple pour éviter ca ?

Code:

---

@liste = grep { $_ ne 0 } @liste;

---

Ca pourrait convenir, non ? Pas besoin du sort au préalable (qui est coûteux en temps) et on fait un seul parcours (le grep est une sorte de boucle).

Merci 2Eurocents

J'ai réussi à enlever les 0 dès la création de la liste. Le sort je le garde pour ordonner les mots (ils comportent 1 chiffre)