my @a = (1, 2);
our @b = (1, 4);
@a = @b;
my($a, $b) = (@a, @b);
@a = (@b, @a)
