#!/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.
Oceans of code produce mountains of scripts,
we follow the road as our application ships.
Give it a whirl, I think you'll find,
working with Perl expands the mind!
