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