my @array1_sort=sort{$a->[0] cmp $b->[0]}@array1;