print "Please enter a number: \n";
my $limit= <STDIN>;
chomp $limit;