$x = 10;
*y = *x;
$z = \$x;

foreach $x (1..3) {
    print "\$x = $x, \$y = $y, \$\$z = $$z \n";
}