Select Code to Download

my @aap = qw( 0aap 0noot 1mies 2mies 0aap 0noot 1mies 6mies );
foreach (@aap) {
...
aap
mies
mies

#!/usr/bin/perl
my @aap = qw( 0aap 0noot 1mies 2mies 0aap 0noot 1mies 6mies );
...
mies
mies
mies