lc $first_number eq "q" and die "Goodbye\n";

... rest of code