Select Code to Download

use List::Util qw/first sum/;
use strict;
...
        }
        return @match ? ( $try, @match ) : ();
}