my $last_index;
$dropdown34 = $gr_frame34->BrowseEntry(-browse2cmd => show_index(\$last_index),
-variable => \$var))->pack;

sub show_index {
  my $self = shift;
  my $index = shift;
  $index_ref = shift;
  $$index_ref = $index;
}