> Google: perl @ARGV @ARGC

#я так понимаю проблема в самой рекурсии, я набросал простой код, для проверки:
my $a;
sub test_rec {
    my ($end, $ref) = @_;
    my @arr;
    push @arr, $ref if ($ref);
    push @arr, $end;
    for(my $i =1; $i < $end; $i++) {
        test_rec($end - $i, \@arr);
    }
    return \@arr;
}

$a = test_rec(3, $a);
print "\n\n@{$a}"."\n\n";
print @_."\n" for @{$a};

#в результате получаю один елемент (импользуемый в первом проходе рекурсии), Пробовал и по ссылкам и по значениям передавать.. При пощаговом прохождение все нормально до вызова return, при этом один за одним удаляются элементы из массива.
#задачу можно легко решить используя для push внешний массив, но я хочу разобраться как решить эту задачу имено используя внутренний массив в рекурсиивной функции.