foreach my $key (qw(typex typey typea typez))