my @machines = qw(c1h1 c1h2 ... c5h7);
for my $machine (@machines) {
  if ($machine =~ /h7$/) { process_special($machine) }
  else { process_normal($machine) }
}