#!/usr/bin/env perl

use Math::Random qw(:all);

@values = random_uniform (10000, 0, 10000000);

foreach $value (@values) {
    print $value . "\n";
}