use List::MoreUtils qw/uniq/;

my @list = qw/
  Tomate
  Kartoffel
  Kartoffel
  Tomate
  rote Paprika
  Blumenkohl
  Tomate
/;
my @uniq = uniq @list;