$bobs_wifes_name = perform { $_->name } wherever $bob->spouse;

##</code><code>##

$bobs_wifes_name = wherever $bob->spouse, perform { $_->name };