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

print "@word\n";
[download]

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

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

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