#!/usr/bin/perl -w
$x[1][1]=11;
$x[1][2]=12;
$x[1][3]=13;
$x[2][1]=21;
$x[2][2]=22;
$x[2][3]=23;
@sorted = sort {$b->[2]cmp $a->[2] } @x;