Statement Perl

$i=1;
while ($i <= 10) {
     if ($i == 5) {
         print "\$i == $i\n";
         next;
     }
     print "$i ";
}continue {$i++;}    # $i is incremented only once