Ajd chapter5

Ready!
This goes into an infinite loop at line 10 if you pipe in data without a numeric line e.g.
perl exercise3.pl << ENDL
fred
gemima
ENDL
It works if the first line or a subsequent line is numeric.