my $table = $sth->fetchall_hashref; 
  for my $r (@$table) {