Help for this page
use Modern::Perl '2011'; my $sentence = 'aaaa bbb ccc'; ... while (my ($i, $word) = each @words) { say "$i: $word"; }