特定の項目でソートする
#-----------------------------------@data = ( 'A,7,緑', 'C,6,青', 'B,4,赤', 'A,9,紫', 'A,2,黄緑', 'B,10,黄', 'C,3,青紫',);#-----------------------------------@data = map {$_->[0]} sort {$a->[2] $b->[2]} map {[$_, split /,/]} @data;# 結果 -----------------------------@data = ( 'A,2,黄緑', 'C,3,青紫', 'B,4,赤', 'C,6,青', 'A,7,緑', 'A,9,紫', 'B,10,黄',);#-----------------------------------