I would suggest getting input BEFORE doing the chomp .... and since you want this to happen at least once, it is the ideal situation for using do{} while();. Note that this requires moving the increment.

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