use CGI::Pretty ":standard";
my @fields = qw( Adios Amigo );
print div ({ -id => "div-test" },
           div( \@fields )
          );
__END__
<div id="div-test">
	<div>
		Adios
	</div>
	<div>
		Amigo
	</div>
</div>