>perl -wMstrict -le
"sub S ($$) {
   my ($scalar, @array) = @_;
   return $scalar + $array[0];
   }
 my @ra = (9, 8, 7, 6);
 print S(3, @ra);
"
7