教えてもらった事を比較的自分に分かり易い様にしようと弄ってたらこんな感じになりました。

@list2 = (
{'audio' => "オーディオ"},
{'video' => "ビデオ"},
{'cd' => "CD-ROM"},
{'dvd' => "DVD"},
{'bench' => "ベンチマーク"},
{'text' => "テキスト"},
{'bin' => "バイナリ"}
);

foreach (@list2){
　　my($key, $val) = each(%$_);
　　print "$key => $val\n";
}

順番を保持しなくちゃならないときはこんな感じでいこうかなって思います。