#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper::Concise;
use Text::CSV::Simple;

my $datafile = '/path/to/text.csv';

my $parser = Text::CSV::Simple->new;
$parser->want_fields(2,8);

my @data = $parser->read_file($datafile);
print Dumper(@data);