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