Handy Perl functions to populate random and quasi-random data-points