@arr = ();
$arr[0][0]=2;
$arr[0][1]=2;
$arr[1][0]=0;
$arr[1][1]=1;
$arr[2][0]=1;
$arr[2][1]=3;
$arr[3][0]=1;
$arr[3][1]=2;

foreach $val (sort {$b->[1] <=> $a->[1]} @arr)
{
   print join("|", @{$val}) . "\n";
}