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); 
}