foreach my $Contact(InContact::cDBI::contact->contact_detail(recontact => $tm)){
      my @cols= $Contact->columns;
}