Untitled

foreach my $host (@result_array) {
	my $name = $host->name;
	$name =~ s/_/-/g;
	$host->name ($name);

	my $aliases = $host->aliases || [];
	my @fixed;
	foreach my $alias (@$aliases) {
		$alias =~ s/_/-/g;
		push @fixed, $alias;
	}
	$host->aliases (\@fixed);

	# now call modify for the host
}