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";
[download]