Select Code to Download

my ( @ref_list, $code_ref, $i );

...
while ( $code_ref = pop @ref_list ) {
    &$code_ref;
}