Select Code to Download

Modification of a read-only value attempted at a.pl line 8.

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