pushing onto multiple arrays

[martymart]

Fellow Monks,
is it possible to push stuff onto two (or more) arrays at the same time?
For example:

push @array, "some text";
push @array2, "some text";

is there an easier way to do this, something like

push (@array,@array2), "some text";

although obviously this doesn't work, or I wouldn't be asking here. Apologies in advance if this is a really obvious answer, it just doesn't seem to be covered in my programming perl book (second edition)

Many Thanks,
Martymart

[broquaint]

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

[Hena]

Using arrays of arrays it gets easier. Something like this:

my @list;
foreach (0 .. 5) {
  push (@{$list[$_]},"some text");
}

UPDATE: fix typo in code, thanks Happy-the-monk :)

[Hofmator]

Going with broquaint's solution, if you should need it more than once, put it into a sub, e.g.

sub mpush {
  my $arrays = shift;
  local $_;
  push @$_, @_ for @$arrays;
}

mpush [\@array, \@array2], "some text";