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