use Math::Random qw(random_poisson);
my $rnd = random_poisson($n, $mu);