my @sortedtda;
my @chrnums;
my @coords;
$i=0;

for (@twodarray) {
	push @chrnums, $twodarray[$i][0]=~ (/(\d+)/);
	push @coords,  $twodarray[$i][1]=~ (/(\d+)/);
	++$i;
    }

@sortedtda = @twodarray[ sort {
			$coords[$a] <=> $coords[$b]
				 ||
			$chrnums[$a] <=> $chrnums[$b]
		       } 0..$#twodarray
	       ];