push @result, func1([ splice @_, 0, $num_elements ]) while @_;