> @sorted = sort { $data[$a] [0] <=> $data[$b] [0] } @data;

In the sort block, $a and $b are *elements* of @data, not *subscripts*. Your
sort block should be more like

   { $a->[0] <=> $b->[0] }

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to