Array::Parallel

２つの配列を、片方をキーとしてソートする。

使い方：
use strict;
use Array::Parallel;

my @a = qw(4 5 6 2 9 1);
my @b = qw(four five six two nine one);
my $p = new Array::Parallel(\@a,\@b);
my ($a1,$b1) = $p->sort('num');
print "@$a1\n";
print "@$b1\n";

実行結果：
1 2 4 5 6 9
one two four five six nine

sort メソッドの引数
num ：数値順にソート
cmp ：文字列順にソート

ソート順は、常に昇順。