Select Code to Download

# take the values in @array and use them as a hash slice to make all o
+f the values 1
@hash{@array} = (1) x @array;

# take the values in @array and use them as keys in %hash, incrementin
+g the values associated with said keys by one
for (@array) { $hash{$_}++; }

$hash{$_}++ for (@array); # same as above only with the for at the end

print+map{sprintf'&#%d;',$_}unpack'C*',$_;

print map { sprintf '&#%d;', $_ } unpack 'C*', $string;

print map {
  sprintf '&#%d;', $_
} unpack 'C*', $string;

$VAR1 = {
          'YZ0' => undef,
...
          'PQR' => undef,
          'GHI' => undef
        };

$VAR1 = {
          'YZ0' => 1,
...
          'PQR' => 1,
          'GHI' => 1
        };