sub createCallTestcaseXML{
  my ($tc,$name3,$phoneID,$callNumber) = @_;
  ...
}