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

##</code><code>##

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