my ($one, $two) = qw( one two );
print "$one\r$two\n";