Select Code to Download

    @eval_code=("read_genome();","read_mapfile();","read_GTF();","read
+_RM();");
    foreach$eval_code(@eval_code) {
        eval$eval_code;
    }

my @subs = (\&read_genome, \&read_mapfile, \&read_GTF, \&read_RM);
foreach my $sub (@subs) {
   &$sub();
}