my $pms = join("\n", @foundfiles), "\n";

##</code><code>##

my $pms = join("\n", @foundfiles) . "\n";