} else {
my $o = join('|', @header);
my $n = join('|', @$row);
if ( $o eq $n ) {
warn "# same header again in $file skipping\n";
} else {
my $o = join('|', @header);
my $n = join('|', @$row);
if ( $o eq $n ) {
warn "# same header again in $file skipping\n";