while (<$fh_in>) {
   open(my $fh, '>', sprintf('prefix.%04d.txt', $.)) or die;
   print $fh_out $_;
}