Select Code to Download

my $names = $sth->{NAME};
#$names is an array reference
for (@$names) {
   print $_, "\n";
}

my $types = $sth->{TYPE};
#$types is an array reference
for (@$types) {
   print $_, "\n";
}