while (my $current_number = <STDIN>)

##</code><code>##

last if $current_number eq 'Q';

##</code><code>##

print "Enter a number ('Q' to quit):\n";