my @count = qw/1 2 3 4/;

while ( my ( $iter, $value ) = each @count ){
    if ($value < 2 ) { 
      print "$iter: one\n";
    } elsif ($value = 2) { # LOGICAL ERROR HERE
                           # assignment rather than test of equality
                           # but no 'plaints from Perl

      print "$iter: HA!\n";
    } else {
      print "$iter: three!\n";
    }
}