print "$_ could not be restored!\n" for grep { not exists $found{$_} } @files;