Unexpected behavior with eq operator in a perl while loop. while loop does not stop

Question

While loop below does not stop after scalar $quit clearly does not equal 'j'. Why won't it stop?

#!/usr/bin/perl -w

use strict;
my $quit = 'j';

while ($quit eq 'j') {

    print "Enter whatever value you want and I bet I still continue.\n";
    chomp (my $quit = <STDIN>);
    print "quit equals: $quit\n";

} 

Answer 1

Inside the loop you are creating a new $quit variable with the my keyword:

chomp (my $quit = <STDIN>);

You actually want to assign to the existing variable:

chomp($quit = <STDIN>);

Note that a Perl linting program such as Perl::Critic would have alerted you to this problem:

Reused variable name in lexical scope: $quit at line 9, column 12. Invent unique variable names. (Severity: 3)