Select Code to Download

use strict;
use warnings;
...

    return undef;
}

use List::Util qw( first );

if ( my @f = @{(first { @{$_=[$_->()]}==1 } $code1, $code2)[0]||[]} )