for my $key (keys %candidate) {
    print "$key -> ";
    my $cand = $candidate{$key};
    my $ref  = $reference{$key};
    if ($ref and $ref < $cand) {
        print $ref;
    } else {
        print $cand;
    }
    print "\n";
}