my ($foo, $bar) = split " ", int rand 42;