$ perl -Mstrict -wle '
> my $val1 = 99;
> my $val2 = 77;
> print $val1;
> print $val2;
> my @vars = \ ( $val1, $val2 );
> ${ $vars[ 0 ] } = 55;
> ${ $vars[ 1 ] } = 33;
> print $val1;
> print $val2;'
99
77
55
33
$