多维数组的排序，和数组的输出快捷方式

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->[1] <=> $b->[1]} @list;

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