#!/usr/bin/perl5 -w
my $theValue;
$theValue = Routine(42);
print "$theValue";
sub Routine
{
  my ($argCount,@argValues) = @_;
  return $_0;              # returns 42.
  # return $argCount;      # returns 42 but I would have
                           # thought it would return 1
                           # (representing the number of
                           # arguments received).
  # return $argValues[0];  # this doesn't work at all
                           # but I would have thought
                           # it would return 42.
}