$h{shift@s} #### $h{$s[0]} #### sub e {sub n{abs($s-$b)};$s=pop;while($b=pop){if(&n<$d||!$d){$l=$b;$d=&n}}$l}