#!/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);