while ($continue eq 'Y')