feel_good.pl

#!/usr/bin/env perl
use warnings;
use strict;
my %feelgoods = (
a => "Such AN AWESOME person",
b => "Such a BRIGHT personality",
c => "Such a COOL customer",
d => "Super DOOPER funky town person",
e => "An ELEGANTLY EPIC thingo of a person",
f => "A FANTASTIC person",
g => "A GIANT super here",
h => "A HELPFUL HANDY HOMOSAPIAN",
i => "An INTELLIGENT person",
j => "A JAZZY JIMMNY JONES",
k => "A KEEN KRACKER of a person",
l => "A LIKABLE LOVEABLE LUNATIC",
m => "A MISTICAL MASTERFUL MAGICIAN",
n => "A NICE happy NOSED person",
o => "An OBSERVANT OWLY OSTRICH",
p => "A PERFECTLY PRETTY PERSON who FEELS SO PRETTY",
q => "A QUITE QUIRKY epic person",
r => "A RESPECTFUL ROW BOATING person",
s => "A SAVVY SUPER hero",
t => "A TOTALLY TURBULAR person",
u => "An UBERHERO",
v => "A VICARIOUS VALIANT epic person",
w => "A WISE WABBIT",
x => "A very XENIAL person",
y => "A YAWNY YIPPY person",
z => "A ZANY person",
0 => "Totally full of epicness",
1 => "Full of pwnage",
2 => "So damn awesome",
3 => "So damn epic",
4 => "So damn cool",
5 => "A hero",
6 => "Fully sick",
7 => "So mad and full of rad",
8 => "Perfectly awesome",
9 => "So damn nice",
);
 
 
 
 
 
my @user = (split(//,$ENV{USER})); #get the username and split into chars
#code bellow makes each char unique
my @uuser;
my %seen;
foreach( @user ) {
        next if $seen{ $_ }++;
        push @uuser, $_;
}
print "You are:\n";
foreach( @uuser ) {
        print "$feelgoods{$_} \n";
}