while ($db->FetchRow){                #<-Cycles indefinetly
  my %line = $db->DataHash();
  foreach my $key (sort keys %line){
    print "$key = $hash{$key}\n";     #<-Skips every time
  }
  print "\n";