Heh, here's an even shorter version of the permutation function, which is lots like chromatic's, really, but just "compressed":

sub permutation {
    my($number, $times, $prob) = (@_, 1);
    $prob *= $number-- while $times--;
    $prob;
}
[download]