...
my $fh = $FileHandles{$Dir}{$FileName};

while (<$fh>) {
    print $_;
}