no strict 'refs';
my $point1 = 'valpt';
@$point1 = (1,2,3);
# symbolic reference
print @valpt;