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