for (keys %couple) {
    print "$_ and $couple{$_} are partners\n";
}