二维数组该怎样排序【已解决】

我想根据每行的第一个数字进行排序，例如：        my @t=sort {$u[$a][0] <=> $u[$b][0] } @u;

不过只要存在这段排序，程序运行时很久没反应，如果屏蔽掉就很快有反应，不知道上面那句代码是不是写错了？

my @t=sort {$a->[0] <=> $b->[0] } @u;