Select Code to Download

my @words = qw (Oli Sonni sonja oliver speedy 112);
my @output = 
...
        [$_, $string]}
    @words;    
for my $word (@output){say $word;}

my @words = qw (Oli Sonni sonja oliver speedy 112);

...
}

for my $word (@output){say $word;}