#!/usr/bin/perl -Tw

use strict;

open (my $myfile, "./prova.txt");

my %seen;

while (<$myfile>) {
    chomp;
    my ($c1, $c2) = split(/\|/);
    unless (defined $seen{$c1}) {
        print "$c1$c2\n";
        $seen{$c1} = 1;
    }
}

close ($myfile);