#!/usr/bin/perl -w
use strict;

open TEST, "> test.pl" or die $!;
my $string = "xxx " x 1000;
print TEST <<END_PERL;
#!/usr/bin/perl -w
use strict;
my \@string = qw/$string/;
open TEST, "> out.txt" or die \$!;
for (0..999){
        print TEST "\$_ \$string[\$_]\\n";
}
close TEST;