Why not use Perl's shortcuts? I also don't understand why you're fiddling with split and join there.

@w{map { $_=lc; y/[a-z]/ /cs; split } <>}=();
print map "$_\n", sort keys %w;
[download]

Makeshifts last the longest.