Napisz niewielki program, który wczytuje dowolny plik tekstowy i sprawdza, czy zawiera on w sobie jakieś powtarzające się wiersze. Wiersze w pliku mogą być ustawione dowolnie. Program powinien wypisać treść wierszy powtarzających się oraz liczbę powtórzeń

prog.pl

#!/bin/perl -w
use strict;
my $plik = $ARGV[0];				
my $count = 0;
my @tekst = ();

open(FILE,$plik) or die "Nie mozna otworzyc!:$!";
@tekst = <FILE>;
close(FILE);

for(my $i=0;$i<$#tekst;$i++) {
  for(my $j=$i+1;$j<$#tekst;$j++) {
	if($tekst[$i]=~$tekst[$j]) {
	  print "$tekst[$i]";
	  $count++;
	}
  }
}

print "$count\n";