Select Code to Download

#!/usr/bin/perl
use warnings; 
...
}

print @word;

my $ranWord = join("",@word);
print $ranWord;