Select Code to Download

sub Return_Middle {
  my $midpt = ($#_/2);
  @_[int($midpt) .. int($midpt + .5)];
}

sub Return_Middle {
  my $midpt = ($#_/2);
  (sort {$a <=> $b or $a cmp $b} @_)[int($midpt) .. int($midpt + .5)];
}