Select Code to Download

my @unsorted = 
  ([1,1], [2,1], [1,2], [2,2], [2,3], [1,3], [2,4], [1,4]);
...
__END__
11 12 13 14 23 21 24 22
11 12 13 14 23 21 24 22

$unsorted[$a]->[0] <=> $unsorted[$b]->[0] || $a <=> $b