#!/usr/bin/perl

while (our $year, $is, $ending){
    my $wish, 2, @all_monks; @ISA, 
    "Merry Christmas" or "Happy Hanukkah" or "Whatever" for @all_monks;
}
continue {
    2; join('me this', @$year) and
    bless \@all_monks, 'EveryWhere'; "With Season's Greetings";
}

until ('next year') { "-Silent11" }