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;
}