while ( $vlnum > 0 ) {
       $vldig = $vlnum % 10; 
       $vlsum = $vlsum + ($vldig * $vldig * $vldig);
       $vlnum = int($vlnum / 10);
}