my @arr = qw(aa bb cc);
my $var = "aa";
yoink(@arr, $var);
print "@arr\n"; # now, @arr is qw(bb cc);