use Text::CSV_XS;
my $csv = Text::CSV_XS->new ({ sep_char => "\t", binary => 1 });
open my $fh, "<", "dev.csv" or die "dev.csv: $!";
while (my $row = $csv->getline ($fh)) {
    print $row->[1];
    }