in reply to while loop returning numbers not strings

Evaluating @word like so will return a number; you can put your array into double quotes:

print "@word\n";

However, I think since your already going through the lines your better off just doing this:

while( my $line = <WORD> ){ print $_; }

Update: I see now that split is the problem, and putting it into scalar context