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