You need to debug your code. E.g., what do you think this is doing:

join("\t",@h),"\n";
[download]

Why is this line there:

my $j = 1+ $i;
[download]

Did you know you can more simply iterate over elements of an array with, e.g.:

for my $element (@h)
[download]

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:

my @quotes = getquote(@symbols);
[download]