ソート

@ret = sort @array	文字列でソート　正順
@ret = sort {$a cmp $b} @array	文字列でソート　正順
@ret = sort {$b cmp $a} @array	文字列でソート　逆順
@ret = sort {$a <=> $b} @array	数値でソート　正順
@ret = sort {$b <=> $a} @array	数値でソート　逆順

フォーマット

sort {比較関数} @array
$a @arrayの要素A
$b @arrayの要素B
AとBの比較関数を{比較関数} に書く

より複雑なソート

2つの引数$a,$bを引数に取る関数を入れても良い

@ret = sort function @array

関数functionでソート

sub function{
  my($a,$b) = @_;
  return $a <=> $b;
}