while (@values=$sth->fetchrow_arrayref){
@values='';
[download]

You are fetching a arrayref into an array? (and then clearing the array, but I see you've figured that part out). And I agree with others that you should get some Perl-Tidy.