There's an easy solution to that: ;-)

package Foo {
  sub foo {
    ...;
    while (my $row = $st->fetchrow_array) {
      ...;
      for my $value (split /,/ $row->[3]) {
        if ($value == 0) {

...;
while (not $finished) {
  ...;
  if ($happy) {
    $finished++;
    if (@complaints) {
      while (defined(my $c = shift @complaints)) {
        ...;
      }
    }
  }
}
...;

        }
      }
    }
    ...;
  }
}
[download]