perl - potlaceni duplicitnich radku

[Mošnička Roman]

ahoj,
s perlem jsem zacal vcera vecer,takze se omlouvam za takovouto jednoduchou otazku.
Potrebuji potlacit dupl. radky ve vstupnim souboru, resp mam nasledujici vstupni soubor napr.
/data/data01/db/test.db
/data/data02/idx/test2.idx
/data/data03/db/test2.db
/data/data01/idx/test.idx
atd.
 
a chci vytvorit script, ktery mi vytvori script pro vytvoreni struktury kde nebudou zdvojene radky.
Zkousel jsem to takle a ruzne podobne
 
 
#!/usr/bin/perl
 
while ($radek = <STDIN>) {
@pole = split(/\//,$radek) ;
$pocet = @pole;
$adr="" ;
 for ($i=1;$i<@pole-1;$i++){
 $adr=$adr.$pole[$i]."/" ;
   if (not @pole2 =~ /$adr/) {
    push (@pole2,$adr,"\n") ;
  }
}
}
print @pole2 ;
 
Nevim proc mi tady nezabira podminka pro otestovani jestli je uz dany retezec v poli @pole2.
Asi na to jdu spatne, muzete me nekdo posunout spravnym smerem ?
 
dekuji rm