Help for this page
my $usefulans; foreach ( @$qablock ) { ... } } print "\t\t----> @$usefulans\n";
my $usefulans = grep { $$_[ 0 ] eq $answer } @$qablock; print "\t\t----> @$usefulans\n";