my @Aseen{...} = ...; #### my %Aseen; @Aseen{ @a } = () #### @Aseen{ @$a_ref } = ()