my %see;
open my $file, "<textfile.txt";
while ( my $line = <$file> ) {
    my ($date, $rest) = split(" ",$line,2);
    next if $see{$rest}++;
    print "$date $rest";
}
close $file;