XML::Twig->new( twig_handlers => { Fruit => sub { $_->cut unless( $color{$_->att( 'name')}); } } )
         ->parsefile( "fruits.xml");