Or in other words:

sub second {
    my $self = shift;
    for my $neighbour ( keys %{ $self -> { neighbour }}) {
        $self -> { love }{ $neighbour }
            = $self -> { love }{ $self };
    } 
}
[download]