#!/usr/bin/perl
use strict;
use warnings;
use Text::xSV;

my $csv = Text::xSV->new( fh => *DATA );
$csv->bind_header;
while ( $csv->get_row() ) {
    my $row = $csv->extract_hash();
    print $row->{Domain}, "\n";
}
__DATA__
"Column 1","Company Name","Column 2","Domain","Status","Start Date","Expiration
Date","Renew Date"
"1495107228781574","SomeCompany, Inc.","8335788590132972","kerpow.org","Active",
"Jan 27 2000 9:02PM","May 1 2004 12:34PM","May 28 2005 2:02AM"
"1495107228781574","SomeCompany, Inc.","1802975834647670","squish.com","Active",
"Jul 15 2004 1:49PM","May 2 2004 11:05PM","May 19 2005 11:05PM"