if ( $preference =~ tr/0//)   #if preference is 0 make all category as 0