my ($x,$y) = (qw(1 2 3), qw(4 5 6));