my $yahoo = 'one';

my @ones;
my $twig = XML::Twig->new ( twig_roots => { computer => sub { oneHandl
+er ( \@ones, @_, $yahoo);} } );

$twig->parse($xml);

print Dumper(@ones);

sub oneHandler {
    my ($result_ref, $twig, $elt,$yabal ) = @_;
    my %master;

    return unless $elt->att('id') eq $yabal;

    for my $child ( $elt->descendants() ) {
        #my %atts = %{ $child->atts () };
         $master{$child->child} = %{ $child->atts () };

         next unless %master;
         push @$result_ref, \%master;

    }
}
[download]