Select Code to Download

use Modern::Perl '2011';

my $sentence = 'aaaa bbb  ccc';
...
while (my ($i, $word) = each @words) {
    say "$i: $word";
}