my @seen = ();
while (@elements)
{
     my $elem = shift @elements;
     push @result,
         map { [$elem, @$_] }
         combinations($size-1, @seen, @elements);
     push @seen, $elem;
}