Select Code to Download

use warnings;
use strict;
...
while ( my @x = $odo->() ) {
    print "outer: $x[0], inner: $x[1]\n";
}