my $result; first { defined($result = foobar $_) } @list;