After you have solved the parse problem, you still have to print and array of an unknown number of strings. Use print rather than printf.

{
    local $, = "\n";
    my $ref = $xmlcollection->{phone}->{callTo};
    print @{$ref}, "\n";
}
[download]