my $xml_obj = new XML::Smart( $xml ) ;
my $hash_when_cat_eq_special = ( $xml_obj->{list}{value}( 'category', 'eq', 'special' )->pointer() );