Select Code to Download

# https://perlmonks.org/?node_id=11150731
use strict;
...
    $$y_ref = 'D';
    return;
}

BEFORE:
$x[X] $y[Y]
...
$x[A] $y[B]
AFTER2:
$x[C] $y[D]