my @liste=(
  \@zeile1,
  \@zeile2,
  \@zeile3,
  \@zeile4,
  #...
  \@zeilen
)

my $wert=$liste[$ZeilenNr]->[$SpaltenNr]

my @liste=(
  $zeile1,
  $zeile2,
  $zeile3,
  $zeile4,
  #...
  $zeilen
)

# bitte immer strict und warnings nutzen,
# du bekommst dann bei vielen Fehlern Meldungen,
# die perl ansonsten versuchen würde zu interpretieren.
use strict;
use warnings;

# Dateiname der Datei,
# welche die Zeile enthält
# wie erstellst du die Datei?
# Ich vermute mal,
# dass du nicht immer eine Datei erstellen willst
# um eindeutige Zeilen zu bekommen, oder?
# Das ganze geht definitiv auch ohne Datei
my $file='test.tab';

# macht das selbe wie
# @liste = `cat test.tab`;
open(my $fh,'<',$file) or die("ERROR open $file ($!)");
my @liste=<$fh>;
close($fh);

# unique ist ein Hash
# ein Hash hat die Besonderheit,
# dass alle Schlüssel(keys genannt) einzigartig sind,
# dh, sie tauchen niemals doppelt auf.
# das ist soweit klar?
my %uniqe=();

# durchlaufe das Array rückwärts
for my $cnt (reverse (0..$#liste))
{
  # die Zeile die oben ausgelesen wurde
  my $line=$liste[$cnt];

  # entferne die Zeile aus dem Array wenn sie schon einmal gefunden wurde
  # wenn $line als Schlüssel in %unique schon mal vorgekommen ist ( "if($unique{$line})" ),
  # dann löschen wir die Zeile aus den Array @liste ( "splice(@liste, $cnt,1)" )
  splice(@liste, $cnt,1) if($uniqe{$line});

  # nun Zählen wir den Wert,
  # der zum Schlüssel $line gehört, um 1 hoch
  $uniqe{$line}++;
  # man kann hier auch schreiben:
  # $uniqe{$line}=1;

  # das gibt die Aktuelle Zeilennummer aus
  print "$cnt\n";
}

# alles testweise ausgeben:
for my $line (@liste)
{
  print $line;
}

my %hash=();
$hash{"bla"}=1;
$hash{'foo'}=1;
$hash{bar}=1;

my $wert='';
my %hash=();

$wert='bla';
$hash{$wert}=1;

$wert='foo';
$hash{$wert}=1;

$wert='bar';
$hash{$wert}=1;

my @liste=('bla','foo','bar');
my %hash=();

for my $wert (@liste)
{
  $hash{$wert}=1;
}

while(my @line=read_line_von_irgendwo)
{
  my $zeilendaten=join(',',@zeile);
  push(@liste,$zeilendaten);
}

my @liste;

# ...

while( my @line=lese_zeilen_von_irgendwo() )
{
  my $zeilendaten=join(',',@zeile);
  push(@liste,[@zeile];
  # oder:
  # push(@liste,\@zeile;
}

# ...

# nun wollen wir nur die Zeilen, die einzigartig sind
my %uniqe=();
# durchlaufe das Array rückwärts
for my $cnt (reverse (0..$#liste))
{
  # ein String generieren der "eindeutig" ist
  my $line=join(',',@{$liste[$cnt]});
  # entferne die Zeile aus dem Array wenn sie schon einmal gefunden wurde
  splice(@liste, $cnt,1) if($uniqe{$line});
  # setze diese Zeile als gefunden;
  $uniqe{$line}++;
}

for(@liste)
{
  print join(', ',@$_)."\n";
}