# steve's regions (some added guessed region numbers for demonstration):

foreach my $region ( @regions{ '7A', '8A', '9A' } ) {

    #do stuff to each $region that belongs to steve...
}