sub test { my %q=@_; while ( my ($key, $value) = each(%q) ){ } }