@array=&del_double(@array);
$count=0;
foreach $array (@array)
  {$count++;}

print "unique lines: $count\n";


sub del_double{ 
my %all;
grep {$all{$_}=0} @_;
return (keys %all);
}