sub splat {
	my @letters = split(/\s/,$_[0]);
	return (rand(2) > 1) ? @letters : \@letters;
}

my $count = my @letters = splat('The world is all that is the case.');
my $output = join(",",($count > 1) ? @letters : @{$letters[0]});
print $output;