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