while (1) {
    ...

    last if $finished;
    ...
}

##</code><code>##

my @happyGamesAndThings; # Camel case
my @happy_games_and_things; # underscores