Select Code to Download

sub MaxOrderedSubList {
    my @order= @{ shift @_ };
    my %order;
...
) {
    print "@$win\n";
}

2 3 5
2 3 4
1 3 5
1 3 4
h i s o k
t i s o k