{ my $count = 0;
  do
  { print "\nPlease enter a number: ";
    $in[$count++] = <STDIN>;
  }
  while ( $in[-1] !~ m/q/i );
  pop @in;  #  Remove 'quit signal'
}
chomp @in;