連想配列を列挙するならPerlの場合↓だろ。

while (($key, $value) = each(%GET)) {
}


foreach $onevalue (@array) {}