use Data::Dumper;
my $sth = $dbh->prepare("DESCRIBE $i");
$sth->execute;
while(my $info = $sth->fetchrow_hashref) {
  print Dumper($info);
}