Data::Dummyっていうの作った。

tokuhiromさんにコメントで指摘されて、たしかに！と思ったので、そっちを作ってみました。

use strict;
use warnings;
use utf8;
use Data::Dummy;
use Data::Dumper;

my %hash = (
    id   => dummy_int([1..100]),
    name => dummy_str(["あ".."ん"], size => 5),
);

my @array = (
    dummy_int([  1..100]),
    dummy_int([100..200]),
    dummy_int([300..400]),
    dummy_int([500..600]),
    dummy_bigint(size => 10),
);

print Dumper \%hash;
print Dumper \@array;
__END__
$ perl test.pl 
$VAR1 = {
          'name' => "\x{3042}\x{3042}\x{3042}\x{3042}\x{3042}",
          'id' => 39
        };
$VAR1 = [
          96,
          127,
          318,
          591,
          7345257734
        ];

https://github.com/hisaichi5518/p5-data-dummy