my %hash;
for my $i (0 .. 7) {
  $hash{$i}++;
}
foreach (keys %hash) {
  # do stuff
  delete($hash{$i}) if ($condition);
}