use strict;

my $i = 1;
my $flag = 1;
do {
    print "$i ";
    if (($i ++ == 5) && $flag) {
        $flag = !$flag;
        #redo;
    }
} until ($i >= 10);