for (["Left",$system->{ip}->[0]], (["Right",$system->{peer}->[0]->{ip}->[0]])x!!(exists $system->{peer})) {
	my ($side, $ip) = @$_;
}