$ours{$v} = $k while ( my($k, $v) = each %ours);