Crear arrays con variables (perl)

[krosty_ufc]

Hola que tal, lo que quiero hacer es, crear un array, y que luego mientras lee las lineas de un txt, almacente cada linea en una posicion del array.
Lo que hice fue lo siguiente:

Código:

@lineas = ('');
$i=0;
open (PAGINA, "averga.txt");
while (<PAGINA>)
{
push(@lineas, $_);
print "$lineas[i];
$i=$i+1;
}
close(PAGINA);

Aver quien me puede ayudar :P
Gracias