my @x = ( \$_, \$_ );

No, that's not good enough :)

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

Juerd # { site => 'juerd.nl', plp_site => 'plp.juerd.nl', do_not_use => 'spamtrap' }