$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";
	}

##</code><code>##

-331816
-331816
.25 X 10.25 X 17
.25 X 10.25 X 17
.250 ROLL #3 CUT
.250 ROLL #3 CUT
.250 SOLID ROD
.250 SOLID ROD
.250 SOLID ROD
.375 ROLL #3 CUT
.375 ROLL #3 CUT
.375 X .049 ROD
.375 X .049 ROD
.437 DIA 1018 CRS
.437 DIA 1018 CRS
.437 DIA 1018 CRS
.437 DIA 1018 CRS
.437 DIA 1018 CRS
.437 DIA 1018 CRS
.437 DIA 1018 CRS
.437 DIA 1018 CRS
.437 DIA 1018 CRS
.437 DIA 1018 CRS
.437 DIA 1018 CRS
.437 DIA 1018 CRS
.437 DIA 1018 CRS
.437 DIA 1018 CRS
.437 DIA 1018 CRS
.437 DIA 1018 CRS

##</code><code>##

 C:\scripts>jr2.pl
.250 ROLL #3 CUT

2
.250 SOLID ROD

3
-331816

2
.25 X 10.25 X 17

2
.375 ROLL #3 CUT

2
.437 DIA 1018 CRS

15
.437 DIA 1018 CRS
1
.375 X .049 ROD

2

##</code><code>##


1
.375 X .049 ROD"