get;lines>>.&{$!=[*] .words;put [$!,$!,$!]}