my %foo = (a => 0, b => 1); for (%foo) { push @{ $Location{"/"}->{PerlAddVar} }, [ foo => $_ ]; }