Select Code to Download

for (@array1, @array2, @array3) {
    print "met $_";
}

my $body = sub {
    print "met $_";
...
for (@array1) { &$body() }
for (@array2) { &$body() }
for (@array3) { &$body() }