my $usefulans = grep { $$_[ 0 ] eq $answer } @$qablock;
    print "\t\t----> @$usefulans\n";