my %hsh;
@hsh{@in} = ();
print $_, $/ for keys %hsh;