Select Code to Download

# combines two pairs into a longer pair
sub combine_codes_and_descriptions
...
multi_dim_reduce(sub {my ($c,$d) = @{$_[0]}; print "$c\t$d\n";},
                 [ @data ],
                 \&combine_codes_and_descriptions);

--
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/