@dow = map $_.'day',
  qw( Sun Mon Tues Wednes Thurs Fri Satur );

for ($i = 0; ;) { $i++;  close(R); }

%|;

BEGIN { END { BEGIN { ... } } }

END { BEGIN { END { ... } } }

@critters = qw( angels insects );
splice(@critters, 1, 0, $something);

$dream = 1;