use OpenMind; use CommonSense; $truths{'love'} = 'happiness'; $truths{'happiness'} = 'peace'; $truths{'peace'} = solving($world->ills); join /peace/, @world;