$ cat dummy.csv
a,b,c
d,e,f
g,h,i

##</code><code>##

#!/usr/bin/env perl

use strict;
use warnings;
use autodie;
use constant TARGET_COL => 1;

use Text::CSV;

my $file_name = 'dummy.csv';
my @columns;
my $csv = Text::CSV::->new();
open my $fh, '<', $file_name;

while (my $row = $csv->getline($fh)) {
    push @columns, $row->[TARGET_COL];
}

print "@columns\n";

##</code><code>##

$ ./column_extract.pl
b e h