my $synonyms;
eval {
    $synonyms=$MSWord->SynonymInfo({Word => $word, LanguageID => $language})->SynonymList(1);
};
if($@) {
    print "Nope\n";
} else {
    foreach (@{ $synonyms }) { print $_."\n" }; 
}