Select Code to Download

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

@hash{@array} = $scalar

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

@hash{@array} = ();