do {
   print "\nPlease enter a number: ";
   $in[$count] = <STDIN>;
   chomp($in[$count]";
} while ($in[$count++] !~ /q/i