#!/usr/bin/perl

use CGI::Carp qw/fatalsToBrowser/;
use CGI qw/:standard/;
use strict;
use warnings;

print "Content-type: text/html\n\n";



my $raw="file1";
#my $sorted="file2";#open and print file
open RAW,"<", $raw or die "<raw";
my @array=(<RAW>);


               my %seen = ();
               my @unique = grep { ! $seen{ $_ }++ } @array;

foreach my  $unique( @unique ){
chomp;
print "$unique<BR>\n";

}