sub TestIt
{
  my ($p1,$p2,$p3,$p4)=@_;

  print "p1=$p1,p2=$p2,p3=$p3,p4=$p4\n";
}

my ($a1,$a2,$a3,$a4)=(1,2,3,4);

&TestIt($a1,$a2,$a3=~m/2/,$a4);