связный список на перле

Нужно очень срочно написать связный список на перле. Самый стандартный вариант, как на си и паскале, как бы странно это ни казалось. Но не получается:(( Нужно просто в цикле добавлять туда элементы.
Написал так:

$top={};
while (1)
{
# $a=<STDIN>;
if (($a=<STDIN>)==999) {last}
else
{

$list{'num'}=$a;
$list{'next'}=$top;
$q=\%list;
$top=$q;
}

Что неправильно??
Спасибо.
chipolinous@yahoo.com