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

my @LoL = (
        [   "a superhumanly strong","an underprivileged","a globe-trotting",
            "an impetuous","a shy","a suave","a notorious","a one-legged",
            "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 lonely",
            "a sword-wielding","a genetically engineered",
        ],
        [   "white trash","zombie","shark-wrestling","playboy",
            "guitar-strumming", "Jewish","sweet-toothed","bohemian","crooked",
            "chivalrous", "moralistic","amnesiac","devious","drug-addicted",
            "voodoo","Catholic","overambitious","coffee-fuelled","pirate",
            "misogynist","skateboarding","arachnophobic","Amish","small-town",
            "Republican","one-eyed","gay","guerilla","vegetarian","dishevelled",
            "alcoholic","flyboy","ninja","albino","hunchbacked","neurotic",
            "umbrella-wielding","native American","soccer-playing",
            "day-dreaming",
        ],
        [   "grifter","stage actor","paramedic","gentleman spy","jungle king",
            "hairdresser","photographer","ex-con","vagrant","filmmaker",
            "werewolf","senator","romance novelist","shaman","cop","rock star",
            "farmboy","cat burglar","cowboy","cyborg","inventor","assassin",
            "boxer","dog-catcher","master criminal","gangster","firefighter",
            "househusband","dwarf","librarian","paranormal investigator",
            "Green Beret","waffle chef","vampire hunter","messiah","astronaut",
            "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 One.'",
            "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 veins.",
            "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 'hood.",
            "haunted by an iconic dead American confidante",
            "with a passion for fast cars.","trapped in a world he never made.",
            "in a wheelchair.",
            "on the hunt for the last specimen of a great and near-mythical 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 again.",
        ],
        );
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]"