use strict;
use integer;

my $probability;

&permutation(50,5);

print $probability * 36;

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

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

my $counter = '1';

	while ($counter < $times) {
	$probability = $number * ($number - $counter);
	$counter++;
	$number--;
	print $number, "\n";
	}
return $probability;
}