#!/opt/bin/perl -w 
use strict;
use warnings;

my %hash;
my $hash;
my $w1;
my $w2;
my @test;
my $test;
my @keysout;
my $keysout;

my $count;
my $tot_counts; 
my $wordprecentage;

my @feed;
my $feed;

while (<>) {
        # First fill the array @test with words                  
    foreach (split) {
        push(@test, $_);
    }
    @keysout = @test;
    $test = @test;  #This will be useful in the next statment
}

my $cyc_count = 3;  # set to stop the program runs out of nw or new wo
+rds
 
    #First populate the data stucture
while ( $cyc_count <= $test){
    my $w1 = $test[0];
    my $w2 = $test[1];
    my $nw = $test[2];

    $hash{$w1}{$w2}{total_counts}++;
    $hash{$w1}{$w2}{words}{$nw}++;
    
    $cyc_count++;    
    shift(@test);
}



my $cyc_count2 = 3;
        #Make a three element long feed 
$keysout = @keysout;
@feed = @keysout[0,1,2];

print " the Content of feed : @feed\n";
        #now read values back out using an 


while($cyc_count2 <= $keysout){
        ##############
        #PROBLEM likely with how I am handling these,
        ##############
    my $w1 = $feed[0];
    my $w2 = $feed[1];
    my $nw = $feed[2];



        #retrieves a value from 
    my @wordsList;
    
        ####################
        # PROBLEM HERE 'Use of uninitialized value'
        ####################
            for my $word ( keys %{ $hash{ $w1 }{ $w2 }{ words } } ) {
        push @wordsList, ( $nw ) x $hash{ $w1 }{ $w2 }{ words }{ $nw }
+;
    }
        #print the words 
    my $random_word =  @wordsList[ rand( @wordsList ) ];
    print "random word: $random_word\n";

        
        #pushing $random_word on the end of @feed
    push (@feed, $random_word);
    
        #shifting one element off the left side
    shift(@feed);


    $cyc_count2++;
    print " ";
}
[download]