my $csv = Text::CSV->new({ sep_char => '|' });