my @myArray = qw/three-point-oh three-point-one three-point-two/; $myHash{"tres"} = \@myArray; # then do everything onto @myArray; push @myArray, "three-point-three", "three-point-four"; # And $myHash is automatically updated print join(' ', @{$myHash{"tres"}}), "\n";