use strict; use warnings; 
use Data::Dumper; 
my @a = (1, 2); my $b = { "c"=>\@a }; 
print Dumper(\@a, $b); 
$b->{"c"}[0]=4; 
print Dumper(\@a, $b);'