my $entry1 = $parent->Entry(
    -validate => 'all',
    -validatecommand => sub {
        my $newvalue = shift;
        $entry2_value = length $newvalue; # set value of Entry2
        return 1; # return true to allow the entry value to change
    },
    # other args...
);