sub A
{
  my $parm1 = shift;  #effect: literally shift off the stack passed
}

sub B
{
  my ($p1,$p2,$p3) = @_; #effect: make copy from stack passed
}