use List::Util qw( sum );

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