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