Statement Perl

$i=1;
while ($i <= 10){
     if ($i==5){
        print "\$i == $i\n";
        $i++;      
        next;
     }
     print "$i ";
     $i++;         
}