#!/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.
[download]