Perl 6 lazy list example #2

Example of laziness inaction:

my @words = < orange lime cherry banana lemon >;

my $upwords = map { say "loop"; ucfirst $_ }, @words;

say "Hello";
say $upwords[2];