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

my %hash;

$hash{'aaa_1'}=[9, 8,7,6];
print "aaa_1 is : @{$hash{'aaa_1'}}\n";
#prints aaa_1 is : 9 8 7 6

my $array_ref = $hash{'aaa_1'}; #another way...
print "@$array_ref\n"; #de-references array ref into array
#prints 9 8 7 6

foreach my $num (@$array_ref) #another way
{
   print "a num is: $num\n";
}
#prints this...
#a num is: 9
#a num is: 8
#a num is: 7
#a num is: 6
#################

$hash{'aaa_1'}=[];  #clears anon array
push @{$hash{'aaa_1'}},(4,5,8,9);

print "aaa_1 is : @{$hash{'aaa_1'}}\n";
#prints aaa_1 is : 4 5 8 9
###############

my $sum=0;
foreach my $num (@{$hash{'aaa_1'}})
{
   $sum+=$num;
}

push @{$hash{'aaa_1'}}, $sum;

print "aaa_1 is now : @{$hash{'aaa_1'}}\n";
#prints aaa_1 is now : 4 5 8 9 26