$i=0.1;
open quelle, "< quelldatei";
while (<quelle>){
  if ($i == 0.1){
    $i=0;
    next;
  }
  if ($i == 0){
    $out[0]=$_;
    $lastline=$_;
    next;
  }
  if($_ eq $lastline){
    next;
  }
  $lastline=$_;
  @line=split /;/,$_;
  $out[$i]=$line[$#line];
  $i++;
}
close quelle;
open out, "> output";
for $j (0 .. $i){
  print out "$out[$j]\n";
}
close out;