my $csv = Text::xSV->new(
    filename => $csv_destination,
    sep => '\t',
);

$csv->open_file("foo.csv");
$csv->read_header();
foreach my $field ($csv->get_fields) {
	if (lc($field) ne $field) {
		$csv->alias($field, lc($field));
	}
}