Select Code to Download

&spl($total) if ($len != 1);

$total = &spl($total) if ($len != 1);

sub spl {
   my ($num1) = @_;    
...
      $num1 = $total;
   }
}

sub spl {
   my ($n) = @_;    
...
   }
   return $n;
}

use List::Util qw( sum );

...
   }
   return $n;
}