#!/usr/bin/perl use 5.010; use strict; use warnings; my %heartHolds = ( Soul => "Heart holds a pride-less lion\nwandering the desert,\nan achi +ng hunger for closure\.\n", Pride => "Nourishment from false beginnings,\nthe pride-full fall\nstu +mbling toward the next end\.\n", Revelation => "The pride-less lion sits tall\nlifted by mid-day dunes\ +npresented to one High Light\.\n", Release => "The hunter offers his own heart\.\n", Renewal => "Split by pride\.\nBlistered by the journey\.\nNow, a new p +ride\.\n", Whole => "They become Him and He closes the beginning\.\n", Incomplete => "Feeding brings hunger\.\nHunger sets forth the hunter\. +\nThe well fed starve alone\. ", ); say $heartHolds{Soul}; say $heartHolds{Pride}; say $heartHolds{Revelation}; say $heartHolds{Release}; say $heartHolds{Renewal}; say $heartHolds{Whole}; print $heartHolds{Incomplete}; __END__ FOR THE LESS PATIENT : Heart holds a pride-less lion wandering the desert, an aching hunger for closure. Nourishment from false beginnings, the pride-full fall stumbling toward the next end. The pride-less lion sits tall lifted by mid-day dunes presented to one High Light. The hunter offers his own heart. Split by pride. Blistered by the journey. Now, a new pride. They become Him and He closes the beginning. Feeding brings hunger. Hunger sets forth the hunter. The well fed starve alone.
In reply to Lost And Found (My first poem produced using Perl) by luis.roca
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |