#!/usr/bin/perl -w
use strict;
use Math::Random;
my($n,$low,$high)=(100,250,500);
my @array=random_uniform_integer($n,$low,$high);
for(my $i=0; $i<$n; $i++){print "$array[$i]\n";}