Select Code to Download

my $word = 'abracadabra';
my @list = qw( a b c d e );
...

print("remaining word: ", $word, "\n");  # raaabra
print("remaining list: ", @list, "\n");  # e

remaining word: raaabra
remaining list: e

remaining word: rr
remaining list: e