If I undestand correctly you should change:

my @words=qw( portion answers printer program );

To:

my $file = '/path/to/file';
my @words;
open my $fh, '<', $file or die "Could not open $file: $!";
while(<$fh>){
    push @words, split;
}
close $fh or die $!;
[download]

Untested.