my $x = 0;
foreach (@lines) {
   open(my $fh_out, '>', sprintf('prefix.%04d.txt', $x++)) or die;
   print $fh_out $_;
}