#! /usr/bin/perl#

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