Idea - IO::Text__CSV_XS

use IO::Text::CSV_XS;

IO::Text::CSV_XS::open my $fh, '<', $file,
	columns => 'detect',
	column_names => 'lc',
	record => 'HASH',
	%options
	or die ...;

while (my $record = <$fh>) {
	...;
}

IO::Text::CSV_XS::open my $fh, '>', $file,
	columns => [qw[ foo bar ]],
	column_names => 'uc',
	record => 'HASH',
	%options
	or die ...;

print $fh [qw[ 1 2 ]], [qw[ 3 4 ]], { foo=> 5, bar => 6 };