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} } ) ];
## $Hash_filenames{$plf} = [ <$match> ]; ##
## $Hash_filematches{$filename} = [ grep( /\/\Q$file_name\E#/i, @{ $Hash_filenames{$plf} } ) ];