Select Code to Download

use strict;
use warnings;
use 5.012;
...
    say "found $a[0] and $b[0] !!!";
    say Dumper(\@a, \@b);
}

use strict;
use warnings;
use 5.012;
...
while (my ($first, $second) = $ea->()){
    say "found $first and $second !!!";
}