use Modern::Perl qw/2014/;

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