open (FILE, file.txt' || die "can't open file \n\n $!");
    @FileInfo=<$file_name>;
    @newFile=reverse(@FileInfo);
    my %seen = ();
    my @unique = grep { ! $seen{ $_ }++ } @newFile;
    @newFile=reverse(@unique);
    
    print FILE (@newFile);
    close (FILE);