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