while( deal {a=>1,b=>2} my($k,$v) ) {..}