$data_file="ActiveItems2.txt";
open(DAT, $data_file) || die("Could not open file!");
@raw_data=<DAT>;
close(DAT);

my %uniques;

foreach my $key(@raw_data){

   $uniques{$key}++;
  
} 

foreach $line(%uniques){
	print "$line \n";
	}