use JRR::Tolkien; %rings = ( Elven-kings => { number =>'three', under => 'sky', }, Dwarf-lords => { number => 'seven', halls => 'of stone', }, Mortal-Men => { number => 'nine, doom => 'to die', }, Dark Lord => { number => 'one', throne => 'dark', }, ); foreach $ring (keys %rings) { $rings{Dark Lord}->rule($ring); $rings{Dark Lord}->find($ring); $rings{Dark Lord}->bring($ring, 'darkness'); $rings{Dark Lord}->bind($ring); } if defined( @{ $land{Mordor} } = map (lie($_), @shadows)) );