$fr->RadioButton(
SHOULD BE
$fr->Radiobutton(

##</code><code>##

use warnings;
use strict;

##</code><code>##

"my" variable %main::A can't be in a package at ./1218747.pl line 14, near "my %main::A"
Global symbol "@headers2" requires explicit package name (did you forget to declare "my @headers2"?) at ./1218747.pl line 37.

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use Tk::BrowseEntry;

my $var = '';
my $var1= '';
my @fruits = qw( apple orange bananna grape); 
my @colors = qw( red orange green purple);

my $widget1; # declare here so you can modify it
             # from first $widget

my %options;
$options{'Fruits'} = \@fruits;
$options{'Colors'} =  \@colors;
#print "@{$options{'Fruits'}}\n";

my $mw = tkinit;
      my $widget = $mw->BrowseEntry(
          -label => 'Select the Journal Name:',
          -variable => \$var,
          -state => 'normal',
          -choices => [qw(Colors Fruits)],
         
          -browsecmd=>sub{
               #print "@_\n";
               my $selected = $_[1];
               print "$selected\n";
               $widget1->configure(
                   -choices => $options{$var},
                   );               
               $mw->update;
              }
        )->pack(
            -side   => 'top',
            -pady => '10',
            -anchor => 'w');


       $widget1 = $mw->BrowseEntry(
          -label => 'Select:',
          -variable => \$var1,
          -state => 'normal',
          -choices => $options{$var},
         #-width  => 45
        )->pack(
            -side   => 'top',
            -pady => '10',
            -anchor => 'w');

MainLoop();


##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use Tk::LabFrame;
use Tk::BrowseEntry;

my $main = MainWindow->new();

$main->fontCreate('big', -size=> 24 );

    my $tx  = 'Larry';

    my $fr = $main->LabFrame(
        -label     => '3 Stooges',
        -labelside => 'acrosstop',
    )->pack();

    my @choices = ( 'Curly', 'Larry', 'Moe' );
   
    my $be = $fr->BrowseEntry(
        -label     => 'Whoop Whoop',
        -labelPack => [
            -side   => 'left',
            -anchor => 'w',
            -expand => 1,
            -padx   => 4
        ],
        -font => 'big',
        -width    => 20,
        -state    => 'normal',
        -choices  => \@choices,
        -variable => \$tx
    )->pack( -side => 'top', -anchor => 'e' );

    $be->Subwidget('entry')->Subwidget('entry')->configure(
        '-background' => 'white',
        '-fg'         => 'red'
    );
    $be->Subwidget("slistbox")->configure( -background => 'white' );

    $be->Subwidget('entry')->Subwidget('entry')->configure(
        '-background' => 'white',
        '-fg'         => 'red'
    );
    $be->Subwidget("slistbox")->configure( -background => 'white' );

 
    my @choices1 = ( 'A', 'B', 'C' );
    my $tx1 = 'B';
   
    my $be1 = $fr->BrowseEntry(
        -label     => 'Select',
        -labelPack => [
            -side   => 'left',
            -anchor => 'w',
            -expand => 1,
            -padx   => 4
        ],
        -font => 'big',
        -width    => 20,
        -state    => 'normal',
        -choices  => \@choices1,
        -variable => \$tx1
    )->pack( -side => 'top', -anchor => 'e' );

    $be1->Subwidget('entry')->Subwidget('entry')->configure(
        '-background' => 'white',
        '-fg'         => 'blue'
    );
    $be1->Subwidget("slistbox")->configure( -background => 'white' );

    $be1->Subwidget('entry')->Subwidget('entry')->configure(
        '-background' => 'white',
        '-fg'         => 'blue'
    );
    $be1->Subwidget("slistbox")->configure( -background => 'white' );

MainLoop();


##</code><code>##

#!/usr/bin/perl -w
use strict;
use Tk;
use Tk::BrowseEntry;

my @typeChoices = qw(1553 1554);
my $paramType = $typeChoices[0];

my $mw = MainWindow->new();

my $be = $mw->BrowseEntry(
 -label    => 'List Test',
 -choices  => [@typeChoices],
 -variable => \$paramType,
 -browsecmd=>sub{
	     if ($paramType eq '1553'){
                         func1553();}
             elsif($paramType eq '1554'){
                         func1554();}
                         }

)->pack();

$mw->Button(-text=>'simulate file setting',
            -command => sub{
	         $paramType = set_type();

                 # add a new type by pushing it into
		 # the array @typeChoices
                 push @typeChoices, time;
                
		#move type to first position in list if desired
		 for(1..$#typeChoices){
		     if( $paramType == $typeChoices[0]){last}
		     push (@typeChoices,shift(@typeChoices)); #circular list
		    }
	          $be->configure( -choices  => [@typeChoices],  );	 
		})->pack();

MainLoop;

sub func1553{ print "1553 running\n" }

sub func1554{ print "1554 running\n" }

sub set_type{
    my $rand_num = int(rand(1) + .5);
    if( $rand_num == 0){ return 1553 }else{ return 1554  }      
}