my $text = '0101010101';
my %hash;
@hash{ split '', $text } = 1;
print scalar keys %hash, "\n";

##</code><code>##

@hash{@array} = $scalar

##</code><code>##

@hash{@array} = ($scalar) x scalar @array;

##</code><code>##

@hash{@array} = ();