@array = qw/Kitty Kate/;

%hash = (
    firstname => \$array[0],
    lastname  => \$array[1],
);

$$hash{firstname} = 'Murka';
is($array[0], 'Murka');