my $sth_prepare = $dbh1->prepare("select datestamp, count(id) from userlog group by substring(datestamp,1,10) order by datestamp asc limit 0,7");
$sth_prepare->execute() or die $DBI::errstr;

while (my @arr2 = $sth_prepare->fetchrow_array()) {
   push @array, $arr2[1];
}