Select Code to Download

for (@AoA) {
    my ($x, $y) = @{$_}[1, 2];
}

#!/usr/bin/env perl -l

...
    # Now do something with the retrieved values, e.g.
    print "$x $y";
}

a1 b1
a2 b2
a3 b3
a4 b4
a5 b5