open TWO, '<', $FILE2;        # better be explicit ;-)
    while (<TWO>)
    {
        chomp;                    # correct indent level is here.
        my ($key,$value) = split /\s+/,$_;
        print "$key NOT IN FILE 1\n" unless $hash1{$key};
        $hash2{$key} = $value;
    }