local *mail = ...
$mail[ 3 ]{ recipient } = $mail[ 2 ]{ sender };

## is easier on the eyes and fingers than

$mail->[ 3 ]{ recipient } = $mail->[ 2 ]{ sender };