while (my ($key, $value) = $array->each) { 
  last if some_condition($key, $value); 
}