@orig = qw/ foo bar xx baz quux /; 
push @{/xx/ .. 0 ? /xx/ ? next : \@a2 : \@a1}, $_
  for @orig;
print "a1: @a1\n";
print "a2: @a2\n";

__output__

a1: foo bar
a2: baz quux