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";
}
按第一列排序