Listeneinträge durch Perl

[Jan Runte]

Hallo,

ich versuche durch Perl eine Liste zu erzeugen, die alle verschiedenen Einträge
beinhalten, die in einer Tabelle stehen. Der Aufbau ist folgender:

URL;Rubrik;Person;Film

Nun will ich z.B. alle Filme (nicht doppelt und dreifach) in der Liste anzeigen.
Ich habe das folgend gelöst:

#!/usr/bin/perl

$searchfile= "$ENV{DOCUMENT_ROOT}/cgi-bin/links.csv";

@temping= (" ");
open(SEARCH, "<$searchfile");
while(<SEARCH>)
{
chomp ($_);
@stardaten= split(/;/,$_, 4);
$temp= $stardaten[1];
for(@temping)
{
  if ($_ eq $temp)
  {
  
  }
   else
  {
   push(@temping, $temp);
  }
}
}
close(SEARCH);
@liste= sort(@temping);
for(@liste)
{
print "<option>$_</option>\n";
}

nun dauert das ein bischen, bis ich eine Fehlermeldung bekomme, sonst
reagiert er direkt bei anderen Skripten. Aber ich erkenne den Fehler nicht.
Kann mir da einer Hilfe leisten??

Danke im voraus.

jR.