Simply change your while to a for loop if each is giving you problems with redo:

MASK:
for my $defNet (keys %defMaskArray) {
    my $defKey = $defMaskArray{$defNet};
    
    #...
    
    redo MASK if $defKey eq 'foobar';
    
    #...
}
[download]

- Miller