use strict; use warnings; my $num = ; chomp $num; my @list = split(' ', ); @list = sort {$a <=> $b} @list; print $num%2 == 0 ? +($list[$num/2-1]+$list[$num/2])/2 : $list[$#list/2];