#My function looks like this sub cycleUsesForLibs{ my ($fileDirectory, $scopeName, $fileName, $modelName) = @_; chdir($fileDirectory); open FILE_HANDLE, "$fileName" or die "couldn't open file '$fileName'. \n"; my $loadedFile = join "", ; close FILE_HANDLE; eval $loadedFile; my @hashData = $hash{$scopeName}{$modelName}; my @dereferencedData; foreach my $line (@hashData){ @dereferencedData = @$line; } print "Data: \n"; print Dumper @dereferencedData; print "\n"; #die "Couldn't interpret the file ($loadedFile) that was given.\nError details follow: $@\n" if $@; }