sub nn2 {
    my$s=sub{sort{$a<=>$b}keys%_};
    @_{@_}=0;@_=&$s;%_=();
    $_{abs($_[$_]-$_[$_+1])}=[@_[$_,$_+1]]for 0..$#_;
    @{$_{(&$s)[0]}}
}
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.