Select Code to Download

sub Return_Middle
{
...
       drill_down(@list);
   }
}

my $SORTED   = \&Do_Sort;

...
{
    sort { $a <=> $b || $a cmp $b } @_;
}