# Get synonyms from MSWord
my $synonyms=$MSWord->SynonymInfo(
    {Word => $word, LanguageID => $language})->SynonymList;

# Print them out...
foreach (@{ $synonyms }) { print $_."\n" };