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

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

GreetZ!,

ChOas

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