#! /usr/bin/perl
my $i;
my $j =1;
foo: for ( $i =0; $i<10; $i++ )
    {
      if ( $i < 5 ) {
          do
          {
            $j = $j+2 ;
            next foo;
           } until ( $j > 10 );
           print $j;
           last;
        }
  }