my @vocabulary = qw(a abc abcd abd bc);
my $sentence = 'abdaabc';