my $another = <STDIN>;
chomp $another;
if ($another eq 'y') {
    ...
}