my %types;
for (@fields) {
    $types{Cheese}++     if /cheese/i;
    $types{Pepperoni}++  if /pepperoni/i;
    $types{Sausage}++    if /sausage/i;
}
my @toppings = sort keys %types;