@arr = $p{$num};

##</code><code>##

push @p, @x;
push @p, @y;

##</code><code>##

push @p, $_ for @x, @y;