open (in,"filter.txt")|| die "filter.txt file found!";
open (out,">filter_output.txt")|| die "filter_output.txt file found!";
my @array = <in>;

%ha = map{ $_, 1 }@array;
@array_u = keys %ha;
@array_u = sort keys %ha;
foreach(@array_u)
{
	print out  "$_\n"
}
close(in);
close(out);