You could use qw to cut down on typing and reduce clutter:

my @puzzle =
(
    [qw(r e l a e d b y)],
    [qw(e s c r e e n t)],
    [qw(m i o e i s h l)],
    [qw(i s l a t e r a)],
    [qw(t n u r c n n u)],
    [qw(r g m u a i h s)],
    [qw(o u b m t h a a)],
    [qw(m e o a n c c c)]
);
[download]

our @end = undef;

my @end;
[download]