Select Code to Download

sub first (&@) {
  my $code = shift;
...

  undef;
}

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