$i = 0;
$count = 0;


$a = "0262 366 210 373 20 77 52 373 262 20 20 210 45 203 235 262 124 52 366 57 131 267 104 346 131 373 45 267 373 215 52 346 366 235 131 77 52 235 235 52 346 366 262 45 136 104 346 131 373 235 242 52 346 52 262 45 262 77 57 366 210 366 210 366 52 262 366 57 45 131 321 57 131 267 346 262 45 366 321 52 346 104 131 346 235 242 210 366 20 346 131 215 77 52 373 210 366 262 45 262 77 57 366 210 366";


@comp = split(/ /,$a);

@el = split(/ /,$a);


foreach $element (@comp)
{

next if grep( /$element/, @array);
push @array, $element;
$hash{element} = 1;
}
undef %hash;



foreach $x (@array) {

foreach $y (@comp){
if($x eq $y){
#print "$x eq $y\n";
$count = $count + 1;}


}

if($count > $ARGV[0]){$jed = $jed +1;}

$perc = $count/1.05;




print "$x = $count, $perc\n" ;

$count = 0;
$i = $i+1;
}

$numelem = @el;

print "\n Uk. Broj jed. elem: $jed";
print "\n Uk. Broj elemenata: $numelem";
