The calling code can be simplified some:

my ($len, @b) = getlists();
my @a = splice(@b, 0, $len);
[download]

Of course, it's still horrible.