なんとなく、以下のような感じでしょうか #!/usr/bin/perl use strict; use warnings; use Data::Dumper; my $SEED_BASE = '(3hvKT1w0!W5xA}_/9^eDpR{Gt4S[coPNMnkHiL' 'jUmY27r).Xz]lZFyECs=qgBaOVbId8~-J6Qfu'; my $PCP_TABLE = {}; my $FIXED_NUM = 383; …