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