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