This is a somehow shorter version using the same technique but no named temporary array (it's more an exercise in concision than actually useful).

use strict;

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

__DATA__
a
B
a
B
dd
[download]

I wonder if there's a cleaner way to write the mapped expression.