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

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