sub count_zipped_combo_vals { my %counts; seq_foreach_from_spec( \@_, sub { seq_foreach( seq_zip( ( map seq(split//), @_ ) ), sub { $counts{"@_"}++ } ) }); \%counts; }