my $guess = median( $upper, $lower );
  say "guess is $guess";
  sub median {
  my ( $up, $low ) = @_;
  my $return = ( $up + $low ) / 2.0;
  return $return;
}