for(my $i = 0;$i<=$#questions;$i++){
       my $foo = $questions[$i]->{foo} || "daklfjsdalk";
}