my $csv = Text::CSV->new;
my $header = $csv->header($if, {detect_bom => 1});
my @column_names = $csv->column_names;