$Hash_filenames{$plf}=@file_lines; #### $Hash_filenames{ $plf } = \@file_lines; #### $Hash_filematches{$filename}= grep( /\/\Q$file_name\E#/i, $Hash_filenames{$plf} ); #### @{ $Hash_filematches{ $filename } } = grep /\Q/$file_name\E#/i, @{ $Hash_filenames{ $plf } };
## $Hash_filenames{ $plf } = \@file_lines; ##
## $Hash_filematches{$filename}= grep( /\/\Q$file_name\E#/i, $Hash_filenames{$plf} ); ##
## @{ $Hash_filematches{ $filename } } = grep /\Q/$file_name\E#/i, @{ $Hash_filenames{ $plf } };