my @headers = split ' ', do{ my $raw = <DATA>; $raw =~ tr[",][ ]; $raw }; #"
$line =~ tr[",][ ]; #"
push @{ $planes{ $aid } }, \%row;

next unless @{ $planes{ $aid } } > 1;