Select Code to Download

sub arrarycomp {
  my ($x, $y) = @_;
...
}

@out = sort {arrarycomp($a, $b)} @in;

my @in = (
        [ "The Cat", "G", "F", "H", "J" ],
...
);

$VAR1 = [
          'The',
...
          'H',
          'J'
        ];