Perl hash slices

# filling
%{ $hash } = map { $_ => 1 } @{$array};

# squashing
@{ $hash }{ @{$array} } = (1) x @{$array};
@{ $hash }{ @{$array} } = ();