my %h;
my($k, $v) = each(%h)
