sub median {
  sum( ( sort { $a <=> $b } @_ )[ int( $#_/2 ), ceil( $#_/2 ) ] )/2;
}
print median( 1..4 ), "\n";
print median( 1..5 ), "\n";
__END__
2.5
3