my $ref2;
{ # Block A
  my @aha = (1,2,3,4,5);

  my $ref = \@aha;

  $ref2="$ref";
}

print "@$ref\n";
print ref($ref), "  $ref\n";
print ref($ref2),"  $ref2\n";

##</code><code>##

 use Devel::Pointer;

 my @aha = (1,2,3,4,5);
 my $ref = \@aha;
 my $ref2 = "$ref";

 my ($addr) = ($ref2 =~ m/\(\0\x(\d+)\)/);
 $real_ref = deref($addr);

 # $real_ref must now point to the @aha array..   

##</code><code>##

$"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+)-.*)$/;
$_=["ps -e -o pid | "," $2 | "," -v "," "];`@$_`?{print"+ $1"}:{print"- $1"}&&`rm $1`;
print$\;}