## first example
  $result = first { defined $_ } map { foobar( $_ ) } @list ;

## second example
  foreach ( @list ) {
    last if defined( $result = foobar( $_ ) ) ;
    }