This may have been done before. But I like it.

Please have pity on me, I've had a few drinks was I was writing this ;-)

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)) );
[download]

<-> In general, we find that those who disparage a given operating system, language, or philosophy have never had to use it in practice. <->