Hi cored,

I think ($vldig * $vldig * $vldig) confused the issue a little.
From this definition

NARCISSISTIC NUMBERS:

DEFINITION
A narcissistic number is an n-digit number that is the sum of the 
n-th powers of its digits.

Examples:

     153 = 1^3 + 5^3 + 3^3.
     548834 = 5^6 + 4^6 + 8^6 + 8^6 + 3^6 + 4^6.

My attempt at a solution is

!/usr/bin/perl -w

use strict;
my $vlnum = 0;
my $soln=0;

print "Insert a number: ";
chomp ( $vlnum = <STDIN> );
die "Not a number\n" unless $vlnum=~/^\d*$/;
my @digits=split //, $vlnum;
$soln += $_**@digits for @digits;

if($vlnum == $soln) {
print "$vlnum is a narcissistic number\n" }
else{
print  "$vlnum is not a narcissistic number!\n"
};
[download]

I hope this helps

thinker