#!/usr/bin/perl -wl
use strict;
use List::Util qw(shuffle);

my @LoL = (
        [   "a superhumanly strong","an underprivileged","a globe-trot
+ting",
            "an impetuous","a shy","a suave","a notorious","a one-legg
+ed",
            "an all-American","a short-sighted","an otherworldly",
            "a hate-fuelled", "a scrappy","an unconventional","a jaded
+",
            "a leather-clad","a fiendish", "a Nobel prize-winning",
            "a suicidal","a maverick","a bookish", "an old-fashioned",
            "a witless","a lounge-singing","a war-weary", "a scarfaced
+",
            "a gun-slinging","an obese","a time-tossed","a benighted",
            "an uncontrollable","an immortal","an oversexed","a world-
+famous",
            "an ungodly","a fast talking","a deeply religious","a lone
+ly",
            "a sword-wielding","a genetically engineered",
        ],
        [   "white trash","zombie","shark-wrestling","playboy",
            "guitar-strumming", "Jewish","sweet-toothed","bohemian","c
+rooked",
            "chivalrous", "moralistic","amnesiac","devious","drug-addi
+cted",
            "voodoo","Catholic","overambitious","coffee-fuelled","pira
+te",
            "misogynist","skateboarding","arachnophobic","Amish","smal
+l-town",
            "Republican","one-eyed","gay","guerilla","vegetarian","dis
+hevelled",
            "alcoholic","flyboy","ninja","albino","hunchbacked","neuro
+tic",
            "umbrella-wielding","native American","soccer-playing",
            "day-dreaming",
        ],
        [   "grifter","stage actor","paramedic","gentleman spy","jungl
+e king",
            "hairdresser","photographer","ex-con","vagrant","filmmaker
+",
            "werewolf","senator","romance novelist","shaman","cop","ro
+ck star",
            "farmboy","cat burglar","cowboy","cyborg","inventor","assa
+ssin",
            "boxer","dog-catcher","master criminal","gangster","firefi
+ghter",
            "househusband","dwarf","librarian","paranormal investigato
+r",
            "Green Beret","waffle chef","vampire hunter","messiah","as
+tronaut",
            "sorceror","card sharp","matador","barbarian",
        ],
        [   "with a robot buddy named Sparky.","whom everyone believes
+ is mad.",
            "gone bad.","with a mysterious suitcase handcuffed to his 
+arm.",
            "living undercover at Ringling Bros. Circus.",
            "searching for his wife's true killer.",
            "who dotes on his loving old ma.","looking for 'the Big On
+e.'",
            "who knows the secret of the alien invasion.","on the edge
+.",
            "on a mission from God.","with a secret.","in drag.",
            "plagued by the memory of his family's brutal murder.",
            "looking for a cure to the poison coursing through his vei
+ns.",
            "moving from town to town, helping folk in trouble.",
            "who must take medication to keep him sane.",
            "who hangs with the wrong crowd.",
            "possessed of the uncanny powers of an insect.",
            "with a winning smile and a way with the ladies.",
            "fleeing from a secret government programme.","from the 'h
+ood.",
            "haunted by an iconic dead American confidante",
            "with a passion for fast cars.","trapped in a world he nev
+er made.",
            "in a wheelchair.",
            "on the hunt for the last specimen of a great and near-myt
+hical creature.",
            "on the run.","for the 21st century.",
            "who hides his scarred face behind a mask.",
            "on the wrong side of the law.","with no name.",
            "from the Mississippi delta.","with acid for blood.",
            "with nothing left to lose.","haunted by memories of 'Nam.
+",
            "on a search for his missing sister.","on his last day in 
+the job.",
            "from a doomed world.","who believes he can never love aga
+in.",
        ],
        );
my @w = shuffle(@{$LoL[0]});
my @x = shuffle(@{$LoL[1]});
my @y = shuffle(@{$LoL[2]});
my @z = shuffle(@{$LoL[3]});

print "Perl is $w[0] $x[0] $y[0] $z[0]"
[download]