sub fLoadModules {
    my ($modules) = @_;
    my @array;
    open my $fh, "<", $modules or die "Couldn't open module file: $modules";
    while(<$fh>) {
        chomp;
        my ($module_id) = split /;/;
        push @array, $module_id;
    }
    close $fh;
    return @array;
}

##</code><code>##

my $modules_path = $opts{e};

##</code><code>##

fCompose $dbh, $modules_path;

##</code><code>##

sub fCompose {
    my($dbh, $modules_path) = @_;

    my @retstr = fLoadModules($modules_path);

....
}