in reply to Avoiding goto
I might write it like this:
for my $a (@b) { if (...) { next } do_something(); if (...) { next } do_something(); if (...) { next } do_something(); } continue { perform_cleanup(); }
In Section
Seekers of Perl Wisdom