for (my $iter = get_iter(); my ( $widget ) = $iter->(); ) {
   ...
}

##</code><code>##

my $iter = get_iter();

while ( my ( $widget ) = $iter->() ) {
   ...
}