use strict;
use warnings;

my @list = 'a'..'z';
for my $letter (@list) {
    my $popped = pop @list;
    printf "letter: %s popped: %s list: %s\n",$letter,$popped,join('',@list);
}

##</code><code>##

letter: a popped: z list: abcdefghijklmnopqrstuvwxy
letter: b popped: y list: abcdefghijklmnopqrstuvwx
letter: c popped: x list: abcdefghijklmnopqrstuvw
letter: d popped: w list: abcdefghijklmnopqrstuv
letter: e popped: v list: abcdefghijklmnopqrstu
letter: f popped: u list: abcdefghijklmnopqrst
letter: g popped: t list: abcdefghijklmnopqrs
letter: h popped: s list: abcdefghijklmnopqr
letter: i popped: r list: abcdefghijklmnopq
letter: j popped: q list: abcdefghijklmnop
letter: k popped: p list: abcdefghijklmno
letter: l popped: o list: abcdefghijklmn
letter: m popped: n list: abcdefghijklm