while (1) {
    ...

    last if $finished;
    ...
}