Sort an array of arrays?

[Harry Goldhagen]

Anyone know how to sort an array of arrays? To sort on the first column ($j 
= 0), I tried:

$j = 0;
for $i (0..$#AddBook) {
@col = $AddBook[$i][$j];
@sortcol = sort @col;
print "Column $j contains: @col\n";
}

for $i (0..$#AddBook) {
print "Column $j sorted contains: @sortcol\n";
}

I get the last value repeated in each entry of @sortcol

Harry Goldhagen
[EMAIL PROTECTED]