package MyPackage::Global;
use vars qw($ThisGlobalValue);
$MyPackage::Global::ThisGlobalValue = "irgendwas";

.....
package MyPackage::Callbacks;
sub ChangeThis {
 my ($widget, $index) = @_;
 $MyPackage::Global::ThisGlobalValue = $widget->value($index); 
}