my @array;
my $ref = \@array;
@$ref = (1,2,3);