Following this advice I modified your program with

use strict;
use warnings;
[download]

extra output was

Argument "Y" isn't numeric in numeric eq (==) at - line 14.
Argument "N" isn't numeric in numeric eq (==) at - line 14.
[download]

Use eq to commpare strings, == for numbers. See perlintro, perlop.