use strict;
use warnings;
use Text::CSV_XS;

my @fields;
my $geparst;
my @geparst;
my $i;