open(DB, ">", "ext.log") or die $!;
  foreach my $row (@data) {
    my $line = join('    ', @$row);
    print DB $line, "\n";
  }
  close DB;