my $ref = []; # reference to an array

my $a = $ref + 0; # force numeric context
my $b = "$ref"; # force string-contect

print "$a $b\n";