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