Do you mean something like this? Writing this off the cuff here so mind your p's and q's :)

    foreach my $q (@questions){
       my %p = %{$questions[$q]};# copy to be more clear here..
       foreach $entry (keys %p){
          print "$q : $p{$entry}\n";
       }
    }
[download]