for $i (0.. $#words_list){
  for $words (keys %{$words[$i]}){
    print "word $i = $words\n";
  }
}