use Class::Struct qw(struct);
struct S=>[a=>'$',b=>'@']; #"b" is an array
my $a=S->new;
my @q=(4,6,7,99); # A local array 

$a->b(@q);        # What I'd like to do - gives syntax err
print  $a->b(1) # Prints NOTHING .. hoping to see "6"
$a->b($q);       # Try to assign the $$q to $a->b
print  $a->b(2) # Prints NOTHING .. hoping to see "7"

# Would also like to do 
my @x = $a->b; % Extract entire array