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