>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