my $fn="files.txt"; 
open OUT,">$fn" || die $!; 
print OUT grep(!/^$fn$/,map { $_.="\n"; $_ } <*>); 
close OUT;