my $fileroot = 'foo';
for my $j (0..999) {
  my $filename = $fileroot . $j;
  open (my $out, '>', $filename) or die "Cannot open file $filename for writing: $!";
  print $out "Hello world!\n";
  close $out;
}