my %item_map = ( 'CO.NAME'   => 'name',
                 'MARKETCAP' => 'cap',
                 'INDUSTRY'  => 'ind' );

chomp(my $headers = <DATA>);
my @headers = map {s/\s//g; ($item_map{$_} || lc $_)} split /\s*\|\s*/, $headers;