ID聞け 最新コンビネーション

Perl 



sub combination {

    my $ary = shift;

    my $con = shift || [];
    my $first = shift @$ary;

    foreach my $e (@$ary) {

        push(@$con, [$first, $e]);

    }

    combination($ary, $con) if (scalar(@$ary));

    return $con;

}



["A","B","C"]
を与えたら、
[ ["A","B"], ["A","C"], ["B","C"] ]
を返してくれる。


これのインデックスも欲しい。

[ [ [0,"A"],[1,"B"] ], [ [0,"A"],[2,"C"] ], [ [1,"B"],[2,"C"] ] ]
を返すべきか、
[ [0, 1], [0, 2], [1, 2] ]
も返すべきか。


どうすんべかのー。