my ($one, $two, $three) = qw(1 2 3);   # works with warnings and strictures