while ( my $line = $csv->getline($fh) ) {
		# Manipulation of unsorted fields during import
		my @multiline = join(';',@{$line});
		push @content, @multiline ;
	}
	if (not $csv->eof) {
		$csv->error_diag();
	}

##</code><code>##

	for my $line (@result) {
		my @fields = split(/;/,$line);
		# Manipulation of sorted fields during export
		print $fh "$_;" foreach @fields;
		print $fh "\n";
	}

##</code><code>##

$csv = Text::CSV->new({ binary => 1, auto_diag => 1, sep_char => ';' });