foreach $key (@a)