in reply to Re^2: Efficiency on Code
in thread Efficiency on Code

I was assuming $pointer->{'ACCOUNT#'} referred to an actual column. 

my ($accountno) = sth->fetchrow_array;

[download]
Assigns the first column in the result to $accountno, so if you make sure that that ACCOUNT# is the first (or only) row that will do it.
"What should it profit a man, if he should win a flame war, yet lose his cool?"

In Section Seekers of Perl Wisdom