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