#!/usr/bin/perl

use strict;
use warnings;
use Tie::File;

my $file = '/pfad/zur/datei';

tie my @lines, 'Tie::File', $file or die $!;
my %seen;
@lines = grep{ !$seen{$_}++ }@lines;
untie @lines;