Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    printf "( %s )\n", join ", ", map sprintf("(%s,%s)",@$_), @group;
    ## push @data, \@group;
}

 > perl pairs.pl e 2
15 pairings:
...
( (b,c), (d,e) )
( (b,d), (c,e) )
( (b,e), (c,d) )

#!/usr/bin/perl -w
use strict;
...
    printf "( %s )\n", join ", ", map sprintf("(%s,%s)",@$_), @group;
    ## push @data, \@group;
}