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