my $pdl = random(100, 100) * 4 + 1;