++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

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.