print map { $h->Tr({-align=>'center', -valign=>'top'},
              $h->td({-width=>"34%", -height=>"14", -class=>"e", -alig
+n=>"center"},$number{$_}),
              $h->td({-width=>"33%", -class=>"d", -align=>"center"},$n
+umber{$_}),
              $h->td({-width=>"33%", -class=>"d", -align=>"center"},$n
+umber{$_}),
            ) } keys %number;
[download]

but they won't come out in the order you expect (unless you sort by value, which makes the hash pretty irrelevant in this instance :)

cLive ;-)