my @x = (3,67,4,2,8,45,23);
my @y = (4,7,4,89,6,4,3);

my $arrayref = merge(\@x,\@y);
undef @y;
my @newarray = @$arrayref;
undef @x;



sub merge{
  my ($x,$y) = @_;
  foreach (@$x){
    $_ = '('.$_.','.(shift @$y).')';
  }
  return $x;
}