[Perl] pequeño script

[John Robeto]

Hola a todos.
Intento hacer una chorrada de script pero no me sale.
El script debe leer un archivo (txt) que contiene una
lista de palabras y copiarlas a otro archivo sin que
se repita ninguna, x ej.

lista input: coche, casa, perro, perro, pájaro
output: coche, casa, perro, pájaro

lo he intentado convirtiendo el archivo de entrada en
un @array y generando indices de array para la primera
y segunda cadena, además de un contador $i, algo así:

open (ARCHIVO, "< file.txt");
open (SALIDA, "> fileSal.txt");

@lista = <ARCHIVO>;

$i = 0;             ### contador en cero
$pal1 = $lista[$0]; ### 1ra palabra de @lista
$pal2 = $lista[$i]; ### 2da palabra de @lista


foreach $pal (@lista){
    if ($pal1 ne $pal2){ ##sin son iguales $i++
	$i++;}
    print SALIDA "$pal2 \n";
}

Gracias a quien pueda decirme en qué fallo.

___________________________________________________
Yahoo! Messenger - Nueva versión GRATIS
Super Webcam, voz, caritas animadas, y más...
http://messenger.yahoo.es