Select Code to Download

my $word_pos = $wordptrs[$n]->[rand(+@$wordptrs[$n])];
seek ($word_pos);
my $word = <>;