my $parser = Text::CSV_XS->new({sep_char => ';'});