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

##</code><code>##

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