for $i (@array)
{
$hash{$i}=1;
}