print "$_ $couples{$_}$/" for (keys %couples);