#!/usr/bin/perl -w
use strict;
use Data::Dumper;


my @AoA = ([1,2,3],
           [1,1,3],
           [1,5,2],
           [0,-1,3]
           );
           
print Dumper(\@AoA);           

@AoA = sort{@$a[1] <=> @$b[1] }@AoA;   

print Dumper(\@AoA); 


##</code><code>##

my @AoAoA = ( [ [1,2,3] ,[1,1,3],[1,5,2] ],
              [ [0,-1,3],[1,5,2],[3,2,1] ],
              [ [0,-1,3],[1,-1,3],[5,4,2] ],
           );