my $data_file = "ActiveItems2.txt";
open(DAT, $data_file) || die("Could not open file: $!");
my %seen;
while (<DAT>) {
    chomp;
    $seen{$_}++;
}
close(DAT);

for (sort keys %seen){
    print "$_\n";
}