my $resultset = $dbh->prepare("Select * from Tempest");

while(@row = $resultset->fetchrow_array()){
   print"@row\n\n";
}