$_ = <I1>;   # read column headings
my @columns= split /,/;