my %hash1 = map {$_ =>1 } @array;