Select Code to Download

#!/usr/bin/perl -w
use strict;
...
foreach(sort {$a->{x} <=> $b->{x} or $a->{y} <=> $b->{y}} @a){
  print " $_->{x}  $_->{y}\n";
}

$ ./sort.pl 
 1  1
...
 2  1
 2  2
 2  3