use warnings;
use strict;

use Text::CSV_XS;

my @arrray;
my $csv = Text::CSV_XS->new();