perl , возврат массива с подпрограммы

как такую конструкцию выводить надо:


sub parse{
for my $loopindex (0..$_[0]) {
push @{$delta[$loopindex]} => $loopindex;
}
return @delta;
}

print join "\n\n" => @{[parse(5)]};

на что оно орет нечто вида

ARRAY(0x9de5dcc)

ARRAY(0x9dceb88)

ARRAY(0x9de66a0)

ARRAY(0x9d05a44)

ARRAY(0x9de5f4c)

ARRAY(0x9de65f8)

Спасибо!