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

##</code><code>##

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