When you want a "loop for ever" is is more conventional to:

while (1) {
    ...

    last if $finished;
    ...
}
[download]

Long identifiers are easier to read if you break them up a little:

my @happyGamesAndThings; # Camel case
my @happy_games_and_things; # underscores
[download]

Camel case takes a little time for your eye to grow accustomed to, but has the advantage os being somewhat more compact than the underscore using variant.

The last if is redundant. You can only arrive there if the previous two tests have failed. If you use a while loop that whole block of code can be replaced by just the print statement.

Those comments aside, a cool use for Perl by a learning monk.