Select Code to Download

  DB<1> @aoa = ([qw / 1 2 3 4/], [qw/5 6 7/], [qw/8 9/]);

...
   0  1
   1  5
   2  8

push @result,  $_->[0] for @aoa;