(undef, my $vk) = split ";" , $line; # define input-lines
push (@vk,$vk) unless $seen{$vk}++;