my ($x, $y, $z) = qw( 1 2 3 );