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