perl 二维数组排序

use strict;

my @list;
$list[0][0]="s";
$list[0][1]="3";

$list[1][0]="d";
$list[1][1]="4";

$list[2][0]="w";
$list[2][1]="2";

$list[3][0]="h";
$list[3][1]="0";

$list[4][0]="j";
$list[4][1]="9";

@list = sort{$a->[0] <=> $b->[0]} @list;

for(@list){
    print $_,' ' for @{$_};
    print "/n";
}

按第一列排序