#!/usr/bin/perl -w
use strict;

my %PERSON;
my %NAME;

$NAME{Mark} = $PERSON{a137} = ["Mark", "a137", "var1", "var2", "var3", "var3"];

print "$NAME{Mark}[2] is $PERSON{a137}[2]\n";

$NAME{Mark}[2] = "New1";

print "$NAME{Mark}[2] is $PERSON{a137}[2]\n";