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