diff --git a/utils/generate-distributions.pl b/utils/generate-distributions.pl
new file mode 100755
index 000000000..005407fed
--- /dev/null
+++ b/utils/generate-distributions.pl
@@ -0,0 +1,9 @@
+#!/usr/bin/env perl
+
+use Math::Random qw(:all);
+
+@values = random_uniform (10000, 0, 10000000);
+
+foreach $value (@values) {
+    print $value . "\n";
+}