Small proposal:

@hat=split/ /,<<THAT;
one.fish 1 blue.fish -20 one.fish 0 blue.fish -1 blue.fish 0 fish-red.
+fish ,and one.fish 2 
THAT
[download]

instead of __DATA__ segment. Thanks a lot for adding Seussian data!