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

use strict;
use warnings;
use utf8;
use Data::Dumper;
use Hash::Dummy qw(create_dummy_hash);

my %hash = create_dummy_hash(
    id   => {
        type  => "Int",
        array => [1..150],
    },
    name => {
        type  => "Str",
        size  => 15,
        array => ["あ".."ん", "a".."z", "A".."Z", 0..9],
    },
    nick => "hisaichi5518",
);

warn Dumper \%hash;
__END__
$ perl -Ilib test.pl
$VAR1 = {
    'name' => "lGdgpNpmWP\x{3042}\x{3042}rjN",
    'nick' => 'hisaichi5518',
    'id'   => 66
};

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