if ( ref($xmlcollection->{phone}->{callTo}) eq "ARRAY" ) {
   printf( "Call To:" );
   foreach ($xmlcollection->{phone}->{callTo}) {
      print "$_\n";
   }
}
else {
   printf( "Call To: %s\n", $xmlcollection->{phone}->{callTo});
}