print <<qq~DOUBLE~;
$foo
DOUBLE

##</code><code>##

my @list = (<<HERE, <<THERE, <<EVERYWHERE);
cluck, cluck
HERE
baa, baa
THERE
e i e i o
EVERYWHERE

print "with a ", shift @list, "and a ", shift @list, "singing ", shift @list;