@hash{@array} = (1) x scalar(@array);
print join(" -- ", keys %hash), "\n";

#AND

$hash{@array} = (1) x scalar(@array);
print join(" -- ", keys %hash), "\n";