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);
}