sub spl {
   my ($num1) = @_;    
   while (1) {
      my $total = 0;
      $total = $total + $_ for (split '', $num1);
      my $len = length ($total);
      if ($len == 1) {
         return $total;
      }
      $num1 = $total;
   }
}