In my experience, it's more useful to select column info to a hash:

use Data::Dumper qw(Dumper);

my $col_names = $sth_column_info->{NAME_uc};
my %row; $sth->bind_columns(\@row{@$col_names});

while ($sth_column_info->fetch) {
  print Dumper \%row;
}
[download]

I usually don't care about the DATA_TYPE (the code), the TYPE_NAME (database specific data type name) has been more useful.