@ar = ([1,12],[8,3],[4,57],[22,5]);
@sort = sort{$a->[1]<=>$b->[1]}@ar;
foreach (@sort){
    print "@$_\n";
}