== compares numbers, use eq to compare strings:

while ($continue eq 'Y')
[download]

Numerically, 'Y' is zero.

Moreover, see chomp to fix

$continue = <>;
[download]