#prototyped to explicitly state acceptable arguments

sub addstuff($$$);

...

#gives error if too few or too many arguments
#(or arguements of wrong type)

##</code><code>##

>perl -wMstrict -le
"my @ra = (99 .. 199);
 ;;
 sub S ($$$) {
   my $A = shift;  my $B = shift;  my $C = shift;
   ;;
   return $A + $B + $C;
   }
 ;;
 print S 1, 2, @ra;
"
104