http://www.perlmonks.org?node_id=83955


in reply to Closest-value-in-list Golf!

55 ... and now I give up....

sub g{%_=map{abs$_[-1]-$_,$_}@_;$_{(sort{$a<=>$b}keys%_)[1]}}

GreetZ!,

print "profeth still\n" if /bird|devil/;