for a in thingy[0]['albums'] : a['year'] = 1999

$_->{year} = 1999 for @{$thingy->[0]->{albums}};