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