use strict;

foreach my $d (sort keys %{{ map( ($_ => 1), <DATA>) }}  ) { 
	print $d;
}

__DATA__
a
B
a
B
dd