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

}