sub two() {
$Button1->configure(-state => "disabled");
$Button4->configure(-state => "disabled"); # like this?
print "State Disabled: Only Button Three Can Enable Not Button Four.\n"
}