###############################
my %FileHandles;
my $Dir = '/tmp';
my $FileName = 'test';
open $FileHandles{$Dir}{$FileName}, "$Dir/$FileName" or die "Cannot open $Dir/$FileName: $!";

while (<$FileHandles{$Dir}{$FileName}>) {
    print $_;
}

$FileHandles{$Dir}{$FileName}->close;
###############################