# first defined value in @list
$foo = first { defined($_) } @list;