@zcap = qw(aa po);
$zpo{'def'}='abc';
foreach( @zcap){
eval('print "$z' . $_ . '{'def'}n"' );
}