# 79 chars
sub nn9 {
  @_=sort@_;$_{$_[$_]-$_[$_-1]}=[@_[$_-1,$_]]for 1..$#_;@{$_{(sort key
+s%_)[0]}}
}
[download]