Help for this page
my @file_lines = <$match>; $Hash_filenames{$plf} = \@file_lines;
$Hash_filenames{$plf} = [ <$match> ];
$Hash_filematches{$filename} = [ grep( /\/\Q$file_name\E#/i, @{ $Hash_filenames{$plf} } ) ];