请教引用的问题!!!

请教引用的问题!!!
while (@words and @numbers) {
my %row_data; # get a fresh hash for the row data
$row_data{WORD} = shift @words;
$row_data{NUMBER} = shift @numbers;
push(@loop_data, \%row_data);
}

通过如上方法得到@loop_data
想在以下循环中通过%row_data再对@loop_data中的数值进行修改.该怎么做呢?
foreach (@loop_data)
{
my %row_data;
%row_data = $_;
$row_data{AMOUNT} = 5;
}

foreach (@loop_data)--.
foreach (@loop_data)
{
my %row_data = %$_; # $_是Hash的引用
$row_data{AMOUNT} = 5;
}