#!/usr/bin/perl -l

# http://perlmonks.org/?node_id=1172399

use strict;
use warnings;

my @AnData = 'A'..'Z';
my %AN=(data => \@AnData);

print $AN{data}[0x16], ' ', $AN{data}[22];

##</code><code>##

W W