$ perl -MO=Deparse -e '@$_{1,2,3}=(4,5,6) for \my %hash;print keys %hash'
foreach $_ (\my(%hash)) {
    @$_{1, 2, 3} = (4, 5, 6);
}
print keys %hash;
-e syntax OK