my %hash = map {($_ => undef)} <>;
print sort keys %hash;