++runrig The second time through it's not printing all fields. Here is my output:

here are the active user accounts$VAR1 = bless( {
  'acct_name' => 'CLC',
  'acct_type' => '15',
  'acct_balance' => '1.00',
  'acct_interestrate' => '0',
  'acct_status' => '1',
  'acct_zip' => '',
  'acct_num' => '',
  'acct_primaryname' => 'Golly Gee',
  'acct_state' => '',
  'acct_securitycode' => '',
  'acct_minbalance' => '',
  'acct_city' => '',
  'acct_id' => '9',
  'acct_phone' => '555-987-5666',
  'acct_limit' => '0',
  'acct_expiration' => '1/1/2007',
  'acct_address' => '',
  'acct_website' => '',
  'acct_email' => '',
  'acct_notes' => '',
  'user_id' => '101',
  'acct_fax' => ''
}, 'BPP::ACCOUNT' );
$VAR2 = bless( {
  'acct_name' => 'SouthWest',
  'acct_type' => '46',
  'acct_balance' => '400.00',
  'acct_interestrate' => '6%',
  'acct_status' => '1',
  'acct_zip' => '',
  'acct_num' => '20',
  'acct_primaryname' => 'TSC',
  'acct_state' => 'IL',
  'acct_securitycode' => '',
  'acct_minbalance' => '100.00',
  'acct_city' => 'Erewhon',
  'acct_id' => '5',
  'acct_phone' => '555-382-2838',
  'acct_limit' => '',
  'acct_expiration' => '08/28/2007',
  'acct_address' => '',
  'acct_website' => 'www.southwest.com',
  'acct_email' => 'southwest@bogus.com',
  'acct_notes' => '',
  'user_id' => '101',
  'acct_fax' => ''
}, 'BPP::ACCOUNT' );

Use of uninitialized value in string comparison (cmp) at bppcsvver.pl 
+line 540.
here are the active user accounts$VAR1 = bless( {
  'acct_type' => '15',
  'acct_securityCode' => '12341',
  'acct_status' => '1',
  'acct_interestRate' => undef,
  'acct_minBalance' => undef,
  'acct_id' => '9',
  'user_id' => '101'
}, 'BPP::ACCOUNT' );
$VAR2 = bless( {
   'acct_name' => 'SouthWest',
  'acct_type' => '46',
  'acct_balance' => '400.00',
  'acct_interestrate' => '6%',
  'acct_status' => '1',
  'acct_zip' => '',
  'acct_num' => '20',
  'acct_primaryname' => 'TSC',
  'acct_state' => 'IL',
  'acct_securitycode' => '',
  'acct_minbalance' => '100.00',
  'acct_city' => 'Erewhon',
  'acct_id' => '5',
  'acct_phone' => '555-382-2838',
  'acct_limit' => '',
  'acct_expiration' => '08/28/2007',
  'acct_address' => '',
  'acct_website' => 'www.southwest.com',
  'acct_email' => 'southwest@bogus.com',
  'acct_notes' => '',
  'user_id' => '101',
  'acct_fax' => ''
}, 'BPP::ACCOUNT' );

Tk::Error: Can't set -options to `ARRAY(0x39bd2cc)' for Tk::Optionmenu
+=HASH(0x39
ed02c): 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 .toplevel2
 Tk callback for .toplevel2.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 555
 BPP::BPPDEFAULTS::__ANON__ at BPP/BPPDEFAULTS.pm line 25
 (menu invoke)

C:\Documents and Settings\Tamika Cashaw\My Documents\My Programs\BPP>
[download]

I wonder why it's omitting those fields. Thanks for helping me investigate.

Edited to remove possible personal data by GrandFather