foreach my $plf_vals (values %Hash_plfdata) { my ($base_p4path) = grep {m{/\Q$file_name\E}i && !m{\.plf$}} @$plf_vals; print "BASE p4 path:$base_p4path\n"; }