Select Code to Download

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

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