##
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...
##
##
sub do_stuff {
my $self = shift;
alias my @items = @{ $self->{items} };
for my $item (@items) {
# etc...
##
##
END_REPLY_TO_CHESTER