Select Code to Download

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

  undef;
}

open my $fh, '<', $filename or die "Cannot open '$filename' for readin
+g: $!\n";
tie my @arr, 'Tie::Array::Lazy', [], sub { scalar <$fh> };

first { <whatever> } @arr;