#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use feature 'say';

my @characters = ("Z", "[");

my %hash;
for ( @characters ) {
    my @ascii_character_int = unpack("C*", $_);
    $hash{$_} = \@ascii_character_int;

    my $word = pack("C*", @ascii_character_int);
    say $word;
}
print Dumper \%hash;

__END__

$ perl test.pl
Z
[
$VAR1 = {
          'Z' => [
                   90
                 ],
          '[' => [
                   91
                 ]
        };

##</code><code>##

Unknown cell reference [1

##</code><code>##

Column Index: 27 Column Character: [ Text: Test Line at AA