Select Code to Download

sub list_sort {
    my @vals = @_;
    ... code to sort list ...
    return @sorted_list;
}

sub list_sort {
    my @vals = @_;
...

    return list_sort(@smaller), list_sort(@larger);
}

sub list_sort {
    my @vals = @_;
...

    return list_sort(@smaller), list_sort(@larger);
}

sub list_sort {
    my @vals = @_;
...

    return list_sort(@smaller), list_sort(@larger);
}

$ cat qsort.pl
#!/usr/bin/env perl
...
    returning (d e f g h i)
  returning (a b c d e f g h i)
DONE: a b c d e f g h i