print "Please enter a number: \n";
my $limit = <STDIN>;
chomp $limit;
my $number = $limit;
my @array = ();
	for (my $i = 0; $i <= $limit; $i+=10) {
		push(@array,$number);
		$number -= 10; }
print "@array\n";