Select Code to Download

#usage: @result = st_complex sub { complex comparison }, sub { transfo
+rm }, LIST 
sub st_complex (&&@) {
...
    my $transform = shift;
    &st_complex(sub { $a->[0] cmp $b->[0] }, $transform, @_);
}