#!perl

use strict;
use warnings;
use charnames qw( :full );
use Unicode::Normalize;

binmode STDOUT, ':encoding(UTF-8)';

# Lookup table of IPA properties by IPA symbol
my %properties_by = (
    d   => [ qw( 0 0 ) ],
    a   => [ qw( 0 1 ) ],
    NFD("\N{LATIN SMALL LETTER ALPHA}\N{COMBINING TILDE}")
        => [ qw( 1 0 ) ],
    s   => [ qw( 1 1 ) ],
);

# List of IPA phonemes
my @phonemes = (
    "das",
    "d\N{LATIN SMALL LETTER ALPHA}\N{COMBINING TILDE}s"
);

# For each IPA phoneme...
for my $phoneme (map { NFD($_) } @phonemes) {
    # ...examine each IPA symbol in it...
    for my $symbol ($phoneme =~ m/(\X)/g) {
        # ...and look up each symbol's IPA properties...
        my $properties = join ", ", @{ $properties_by{$symbol} };
        print "$phoneme\t$symbol\t$properties\n";
    }
}

exit 0;