my @names = map { scalar $dbh->type_info($_)->{TYPE_NAME} } @{ $sth->{TYPE} };