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

while ( my ( $iter, $value ) = each @count ){
    if ($value < 2 ) { 
      print "$iter: one\n";
    } elsif ($value == 2) { # NO ERROR HERE, NOW
      say "$iter: HA!\n";
    } else {
      print "$iter: three!\n";
    }
}