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;
}