my $conn = MongoDB::Connection->new;
my $db = $conn->mydb || die "$!";
my ($col, $cols, @cols, $q, $doc, @b, @c, @new, $x, $date, $l, $host); 

@cols = $db->collection_names;

foreach $cols (@cols) {