sub Ordered_Combinations {
    my $n = shift;
    --$n ? map {
             my $d = $_;
             map "$d$_", Ordered_Combinations($n,@_)
               } @_
         : @_
}