#!/usr/local/bin/perl
use warnings;

print "1\n";
open((IN),"<dev.csv");
print "2\n";

while (($read)=<IN>) {
	print "3\n";
	chomp($read);
	@lst = split(/\t/,$read);
	print "$lst[1]";
}

close(IN);