print FILE join (";", map{ defined $_ ? $_ : '' }@{$row}), "\n";