Obviously I don't know what problem you're solving, so this may not be relevant, but is there any advantage to storing the file handles if you are just going to read all the lines?

You could just keep the file names in your hash and use File::Slurp . something like :-

use File::Slurp;
my %hash;
$hash{t} = 'filename';
my @lines = read_file( $hash{t} );
[download]