A simple for should do it e.g

my(@a1, @a2);

push @$_, 'a string' for \@a1, \@a2;

print "a1: @a1\na2: @a2\n";

__output__

a1: a string
a2: a string
[download]