#!/usr/bin/perl -w

use strict;
# use integer;

my $probability = permutation(50,5);
 
print ($probability * 36);

sub permutation {
	my $probability = 1;
	my ($number, $times) = @_;

	print "The times is $times and the number is $number.\n";

	while ($times-- > 0) {
		$probability *= $number;
		$number--;
	}
	return $probability;
}