use Modern::Perl qw/2014/;

open my $OUT, '>', './random.txt' or die "Could not open the output file: $!";

say $OUT 91200000000 + int( rand(100000000) ) for 1 .. 1000;