in reply to column count error followed by too few bind variables
You need to debug your code. E.g., what do you think this is doing:
Why is this line there:join("\t",@h),"\n";
Did you know you can more simply iterate over elements of an array with, e.g.:my $j = 1+ $i;
use print and/or warn to output messages until your satisfied that all of your variables are what you expect them to be. E.g. I don't know what this does because you didn't provide the source for it, and I'm sure I don't want to see it:for my $element (@h)
my @quotes = getquote(@symbols);
In Section
Seekers of Perl Wisdom