Select Code to Download

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