sub update_sort_widgets
 {
  my ($parent, $count) = @_;
  my @dirs = keys(%sort_dirs);  
  for(my $i=0; $i<=$#be_sort_field; $i++) { $be_sort_field[$i]->destroy() if ($be_sort_field[$i]); } @be_sort_field = ();
  for(my $i=0; $i<=$#be_sort_dir; $i++)   { $be_sort_dir[$i]->destroy() if ($be_sort_dir[$i]); }     @be_sort_dir = ();
  for(my $i=0; $i<=$#lbl_sort_nr; $i++)   { $lbl_sort_nr[$i]->destroy() if ($lbl_sort_nr[$i]); }     @lbl_sort_nr = ();

...