Is something like this what you're looking for ...?

use strict;
use warnings;

TOP:
for (my $i = 1; $i < 10; $i++) {
    if (5 == $i) {
        next TOP;
    }
    print "Iteration $i\n";
}
[download]

It will, of course, print all the integers from 1 to 9 except for the number 5.