Another way.

#! perl -sw
use strict;
local $\=$/; local $,=$/;

sub IsNarcissistic ($) {
my %narcissistic;
@narcissistic{do{local $/;split /\s/, <<'END';
4 5 6 9 93084 1741725 4210818 9800817 9926315 472335975
40028394225 42678290603 2 44708635679 49388550606 3 82693916578 534494
+836 54748
35641594208964132 35875699062250035 32164049651 146511208 94204591914 
+912985153
1517841543307505039 3289582984443187032 4498128791164624869 4929273885
+928088826
449177399146038697307 21887696841122916288858 63105425988599693916 7 8
+ 88593477
28361281321319229463398 153 35452590104031691935943 370 43382817693913
+71 548834
174088005938065293023722 188451485447897896036875 23931366443004156935
+0093 8208
1553242162893771850669378 3706907995955475988644380 1 4338281769391370
+ 24678051
121204998563613372405438066 121270696006801314328439376 27907865009977
+052567814
128851796696487777842012787 27879694893054074471405 0 3706907995955475
+988644381
174650464499531377631639254 1550475334214501539088894 4422095118095899
+619457938
14607640612971980372614873089 28116440335967 1634 19008174136254279995
+012734740
19008174136254279995012734741 128468643043731391252 177265453171792792
+366489765
1145037275765491025924292050346 32164049650 371 1927890457142960697580
+636236639
2309092682616190307509695338915 21897142587612075 23866716435523975980
+390369295
186709961001538790100634132976990 24678050 407 17333509997782249308725
+103962772
186709961001538790100634132976991 4679307774 1122763285329372541592822
+900204593
1219167219625434121569735803609966019 92727 12639369517103790328947807
+201478392
12815792078366059955099770545296129367 8208 12679937780272278566303885
+594196922
115132219018763992565095597973971522400 115132219018763992565095597973
+971522401
END

}} = undef;
return exists $narcissistic{$_[0]};
}

print "Insert a number: ";
chomp ( my $vlnum = <STDIN> );

print IsNarcissistic($vlnum) ? "Is narc dude!" : "Try another number!"
+;
[download]