#sum up
#foreach my $k (keys %sum){
#	print $OUT "$sum{$k}\n";
#}

$sth->execute(); 
while (my $res = $sth->fetchrow_arrayref()) {
   print $OUT $res->[1]\n";
}