my ($one, $two, $three) = 1 .. 3;