So what is a "narcicist number"? Your code was already pretty clear, a slight addition of syntactic sugar just makes it even clearer. So go on - explain what the heck this does, means and what ethics has to do with anything here. What they said.

while ( $vlnum > 0 ) {
      $vlsum += ($vlnum / 10) ** 3;
      $vlnum %= 10;
}
[download]

__SIG__
use B;
printf "You are here %08x\n", unpack "L!", unpack "P4", pack
  "L!", B::svref_2object(sub{})->OUTSIDE;
[download]