my @x = ( \$_, \$_ );
$x[0] = 5;
$x[1] == 5 or die;