Without x or map I can only do 174. Perhaps this isn't even a golf, laid out thus:
%h=(
0=>' *',
5=>' ',
20=>"\n",
21=>'* ',
26=>'*',
27=>'=',
42=>"\n",
43=>'=',
69=>"\n"
);
sub f{$n=$h{$_}?$_:$n;print$h{$n}}
f for 21..42;
for(0..2){f for 0..42}
for(0..2){f for 42..69}