#!/usr/bin/perl
# your code goes here

use strict;
use warnings;
use diagnostics;
use feature 'say';

use Data::Dumper;

my @names = qw(Foo Bar Baz);
 
my $names_ref  = \@names;
my $hash = {'first' => $names_ref};
print Dumper $hash;
say $$names_ref[0];
say $names_ref->[0];
say $hash->{'first'}[0];
say $hash->{'first'}->[0];
my $temp = $hash->{'first'};
print Dumper $temp;
say $temp->[0];
say $$temp[0];
$temp->[0] = [@$temp];
print Dumper $temp;
say $temp->[0][0];