my $values_array=${$dbh2->selectall_arrayref($query1)};
[download]

is trying to tell Perl that the return value for selectall_arrayref is a scalar reference, which it isn't. Changing this to:

my $values_array=$dbh2->selectall_arrayref($query1);
[download]

should fix that particular problem. You don't need to tell Perl what kind of reference is being returned until you access it.