open(INPUT, $infile);
 my @lines = <INPUT>;
 close(INPUT);

##</code><code>##

my @headers = split ' ', do{ my $raw = <INPUT>; $raw =~ tr[",][ ]; $raw }; #"

##</code><code>##

my @headers = split ' ', do{ my $raw = shift @lines; $raw =~ tr[",][ ]; $raw }; #"