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