use strict;
use warnings;
use Data::Dumper;

our %hash;

cycleUsesForLibs('./dir', 'Scope', 'hash_file.txt', 'model');

sub cycleUsesForLibs
{
    my ($fileDirectory, $scopeName, $fileName, $modelName) = @_;

    chdir  $fileDirectory;
    do     $fileName;
    my     @hashData = $hash{$scopeName}{$modelName};
    my     @dereferencedData;
    push   @dereferencedData, @$_ for @hashData;
    print "Data: \n", Dumper(@dereferencedData);
}