Select Code to Download

open(FILE, ">$ffdb");
foreach my $line (@ffdbdata) {
...
  print FILE join("|", @column), "\n";   # do one write statement
}
close FILE;