my $widget = undef;
  while( <> ) {
    if( useable($_) ) {
       $widget = $_;
       last;
    }
  }
  if( defined $widget ) { ... }