#!/usr/bin/perl

use strict;
use warnings;

use XML::Twig;

XML::Twig->new( # the twig will only contain PHONENO/ENTRY and REASON/ENTRY elements
                # (plus the root or it would not be a tree)
                twig_roots => { 'BL_USER/PHONENO/ENTRY' => 1,              
                                'BL_DPLI_RECORD/REASON/ENTRY' => \&reason,
                              }
               )
         ->parsefile( 'phone_data.xml');

sub reason
  { my( $t, $reason)= @_;
    foreach my $phone_no ($reason->prev_siblings)
      { print $phone_no->text, ";", $reason->text, "\n"; }
    $t->purge;
  }