in reply to foreach loop on one line

perlsyn
foreach (@files) { print "$_ could not be restored!\n" unless exists $found{$_}; }