while(my @row = $sth->fetchrow_array){
                                      print join("|", @row)."\n";
                                      }