my(@sorted_array) = sort({$a->[0] <=> $b->[0]} @unsorted_array);