my $previous = retrieve_key();
while (defined (my $next = retrieve_key())) {
    compare($result{$previous}, $result{$next});
    $previous = $next;
}