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});
}

##</code><code>##

printf( "%s\n",$xmlcollection->{phone}->{callTo}[0]);
printf( "%s\n", $xmlcollection->{phone}->{callTo}[1]);