my $size = 2;
my $i = 0;

while (@array) {
    ++$i;
    open my $out, '>', "$i.txt" or die $!;
    say {$out} $_ for splice @array, 0, $size;
}

say "$i files created.";