#!/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";