Select Code to Download

use strict;
use warnings;
...
    my $popped = pop @list;
    printf "letter: %s popped: %s list: %s\n",$letter,$popped,join('',
+@list);
}

letter: a popped: z list: abcdefghijklmnopqrstuvwxy
letter: b popped: y list: abcdefghijklmnopqrstuvwx
...
letter: k popped: p list: abcdefghijklmno
letter: l popped: o list: abcdefghijklmn
letter: m popped: n list: abcdefghijklm