sub cycleForLibs{ my ($fileDirectory, $scopeName, $fileName, $modelName) = @_; my $fileLoader = Loader->new( $fileName, $fileDirectory, $scopeName, $modelName); my $data = $fileLoader->{'data'}; print ref $data; if(defined $data){ foreach my $line ($data){ print "Line: @$line \n"; $exportLibs{$scopeName} = @$line; } } print Dumper $exportLibs{$scopeName}; }