#1
sub f{
($a,$b,@_)=(@_,split//,'0@*+'.'='x(4/(pop)-4);
$b=2*$_-1,print$"x((2*$a-1-$b)/2),$_>1?map$_[rand@_],1..$b:'*',$/for 1..$a
}

#2
sub g{
+split//,'0@*+'.'='x(4/$f-4);
$b=2*$_-1,print$"x((2*$h-1-$b)/2),$_>1?map$_[rand@_],1..$b:'*',$/for 1..$h
}