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";