Help for this page

Select Code to Download

Select or download this

use List::Util qw[ first ];;
use List::MoreUtils qw[ first_value ];;
...

$x = first_value{ defined( x( $_ ) ) } 1, undef, 3;;
<<<1>>>