my %lookup = map {$keys[$_] => {prev => $keys[$_ - 1], next => $keys[$_ + 1]}} 0 .. $#keys;