foreach (keys %tagdict){
    print CF values %tagdict if exists $tagcorpus{$_};
} #       ^^ Here!