# before Damian's book I'd have used EOREPLY
my $reply_to_chester = <<'END_REPLY_TO_CHESTER';

##</code><code>##

sub do_stuff {
    my $self = shift;
    my $items = $self->{items};
    # Bear with me and assume I'll need $items again...
    for my $item (@$items) {
        # etc...

##</code><code>##

sub do_stuff {
    my $self = shift;
    alias my @items = @{ $self->{items} };
    for my $item (@items) {
        # etc...

##</code><code>##

END_REPLY_TO_CHESTER