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

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