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