#!/usr/bin/perl

my @list = ();
push(@list, "alma");
push(@list, "körte");
push(@list, "szilva");
push(@list, "barack");
push(@list, "szilva");
push(@list, "banán");

print "@list\n";

my @delIndexes = reverse(grep { $list[$_] eq 'szilva' } 0..$#list);

foreach $item (@delIndexes) {
   splice (@list,$item,1);
}

print "@list\n";