#! /usr/bin/perl

# skript.pl

use strict;
use warnings;

while ( my $line = <> ) {

  my ($id, $date, $value ) = split /;\s*/, $line;

  # gebe Zeile aus, wenn $value noch nicht aufgetaucht ist...
  print $line  if !$seen{$value}++;
}