my @aha = (1,2,3,4,5);

my $ref = \@aha;

my $ref2="$ref";

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