foreach my $plf (@plf_files)
{
    print $plf;
    if (grep (/\Q$plf\E/i,@file))
    {
        push @recursive_plfs,$plf;
        recrusion($plf);
    }
}