foreach my $plf(keys %Hash_plfdata)
	   {
		my ($base_p4path) = grep( (/\/\Q$file_name\E#/i && !/\.plf/), @{ $Hash_plfdata{ $plf } });
		print "BASE p4 path:$base_p4path\n";//Not Printing anytHING
}