sub test { my $ref = shift; push @$ref,'d'; push @{$ref},'e';}my @x = qw/a b c/;test ( \@x );print @x;
$#{$a}push @{$a},$sth
