use 5.14.2; use warnings; $| = 1; print "Range bottom > "; chomp (my $from = ); print "Range top > "; chomp (my $to = ); $from =~ m/^\s*(-?\d+)\s*$/ or die "Invalid range"; $from = +$1; $to =~ m/^\s*(-?\d+)\s*$/ or die "Invalid range"; $to = +$1; $from <= $to or die "Invalid range"; my $range_length = $to - $from + 1; my @points = map { $from + int rand $range_length } 1 .. 100; say "@points";