my $parser = Text::CSV::Simple->new;
my @data = $parser->read_file($infile);