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