my @clusters = (
	{
		Name => 'cluster1',
		Workers => [ qw(h1 h2 h3 h4 h5 h6) ],
		Queen => 'h7'
	},
	{
		...
	}
);

foreach my $cluster (@clusters) {
	foreach my $worker (@{$cluster->{Workers}}) {
		handle_worker($worker, ...);
	}
	handle_queen($cluster->{Queen}, ...);
}