no strict 'refs';
my $point1 = 'valpt';
eval "\@use_$point1 = (1,2,3)";
print @use_valpt;

##</code><code>##

no strict 'refs';
my $point1 = 'valpt';
@{"use_$point1"} = (1,2,3);
print @use_valpt;