my @sorted = sort {$a->[1] <=> $b->[1]} @$array;