my @array = <>;
my %hash;
@hash{@array}=();
print keys %hash;