I'm not sure I fully understand your question, but if I read it correctly, I think you might just be looking for next:

for my $digit (1 .. 3) {
    for my $char ('a' .. 'c') {
        next if $char eq 'b';
        print "$digit $char\n";
    }
}
[download]

Or am I missing something?

Update: I just noticed you said you tried next, as well as last and redo, but you never really explained why those didn't work for you, what they did that you weren't expecting, etc. Can you give further clarification?