#!/usr/bin/perl

use strict;
use warnings;

my $filename = 'DateiMitStringsDrin.txt';

my @array = ();

if (open my $file, '<', $filename)
        {my @lines = <$file>;
        close $file;
        # Zeilenumbrüche entfernen
        chomp @lines;
        my %test = ();
        for (@lines)
                {# prüfen, ob NICHT in %test vorhanden (unless)
                unless (exists $test{ $_ })
                        {# ins Array schieben
                        push @array, $_;
                        # in %test merken
                        $test{ $_ } = 1;
                        }
                }       
        }
# test
print $_."\n" for @array;