TMTOWTDI, and here's a way to ensure that the same number isn't selected more than once:

use strict;
use warnings;
use List::Util qw(shuffle);

my @numbers = (shuffle(250 .. 500))[0 .. 99];
print "@numbers\n"
[download]