グロブとか昔の仕様(Perl4)絡みっぽいので、詳しい事はわからないのだけど・・・
{
　　my $hage = {'hoge'=>'aaa','hoge2'=>'bbb','hoge3'=>'efh'};
　　foreach(keys(%{$hage})){
　　　　print $hage->{$_};
　　}
}
とか定数だとこうやっちゃうことが多いから、使う所無かったりします