Select Code to Download

map{ ... } @array;
... for @array;
...
    my $code = shift;
    $code->( $_ ) for @_;
}

use DB;
sub DB::db{ sleep 1 }