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