open my $IN, '<', '1.csv' or die $!;