Use of uninitialized value in string comparison (cmp) at bppcsvver.pl line 539.
Tk::Error: Can't set -options to `ARRAY(0x1d1d0dc)' for Tk::Optionmenu=HASH(0x3a
c6244): No -label at C:/Perl/site/lib/Tk/Widget.pm line 256
 at C:/Perl/site/lib/Tk/Derived.pm line 294

 at C:/Perl/site/lib/Tk/Derived.pm line 306
 Tk callback for .toplevel7
 Tk callback for .toplevel7.frame
 Tk::Derived::configure at C:/Perl/site/lib/Tk/Derived.pm line 306
 Tk::Widget::new at C:/Perl/site/lib/Tk/Widget.pm line 205
 Tk::Widget::__ANON__ at C:/Perl/site/lib/Tk/Widget.pm line 256
 BPP::Accounts::EditViewAccountsScreen at bppcsvver.pl line 550
 BPP::BPPDEFAULTS::__ANON__ at BPP/BPPDEFAULTS.pm line 25

##</code><code>##

my $a_user= $activeuserName;
    my %AccountHash;
    my @activeUserAccts=();
    my $activeUserCount=0;

      @activeUserAccts = sort{$a->{acct_name} cmp $b->{acct_name}} BPP::ACCOUNT->getActiveUser($activeuser);
    $activeUserCount = @activeUserAccts;
   
    my $active_user_acct = $acct_frame->Optionmenu(-options=>[map {[$_->{acct_name}=>$_->{acct_id}]} @activeUserAccts], -command=>sub {},-variable=>\$activeUserAccts[0], -width=>25 )->grid(-row=>3, -column=>1,-sticky=>'nw');   
    $active_user_acct->addOptions(" ");