while (my @row = $_read_sth->fetchall_arrayref)
   {
   
    @ret_values = Dumper @row, @{$_read_sth->{NAME}};
    print "@ret_values\n";
    
  }