I.. uh

gistfile1.p6

my $test-str = "asdf\nfdsa\nqwer\nrewq\n\nffff\ndddd";

> my ($map, $words) = $test-str.split("\n\n"); $map .= split("\n"); $map.perl
().list.item

> my ($map, $words) = $test-str.split("\n\n"); $map .= split("\n"); 
asdf fdsa qwer rewq
> $map.perl
("asdf", "fdsa", "qwer", "rewq").list.item

#Also this:
> my ($map, $words) = $test-str.split("\n\n")>>.split("\n").tree
 #Empty
> my ($map, $words) = $test-str.split("\n\n")>>.split("\n").lol
 #Empty again

#Works without assignment.
> $test-str.split("\n\n")>>.split("\n").lol.perl
LoL.new(("asdf", "fdsa", "qwer", "rewq").list.item, ("ffff", "dddd").list.item) 

#Works if I don't actually perform the splitting..
> my ($map, $words) = LoL.new(("asdf", "fdsa", "qwer", "rewq").list.item, ("ffff", "dddd").list.item)
asdf fdsa qwer rewq ffff dddd