#!/usr/bin/perl

use strict;
use warnings;
use Earth::Things;

my %things = map {$_=> {'name'=>$_[0]} } (Earth::Things::list_all());
$things{men}{life}=$things{darkness}{shine} = "light";