use Modern::Perl '2011';

my $sentence = 'aaaa bbb  ccc';
my @words = split(/\s+/, $sentence);
my $i;
while (my ($i, $word) = each @words) {
    say "$i: $word";
}