{
   my ($x,$y);
    $x = \$y;    # These will last until exit
    $y = \$x;
}

{
    my $x;
    $x = \$x;    # This will last also
}