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