my @sorted = sort { $a->[2] cmp $b->[2] || $b->[1] <=> $a->[1] } @record;