my $sth = $dbh->prepare_cached(<<SQL);
Select id, username From members
SQL

$sth->execute();
$sth->bind_columns(\my($id,$username));

my $user;

while ($sth->fetch) {
  $user->{$id} = $username
}

for my $id (keys %$user) {
  $sth = $dbh->prepare_cached(q{SELECT COUNT(*) From Results WHERE user_id = ? AND read = ?});
  $sth->execute($id,2);
  $sth->bind_columns(\my($count));
  $sth->fetch;
  print $count;

  $sth = $dbh->prepare_cached(q{SELECT COUNT(*) From Results WHERE user_id = ? AND read = ?});
  $sth->execute($id,3);
  $sth->bind_columns(\$count);
  $sth->fetch;
  print $count;
}