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]
Nah! Your thinking of Simon Templar, originally played by Roger Moore and later by Ian Ogilvy

In reply to Re: Mathematics ethics by BrowserUk
in thread Mathematics ethics by cored

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.