my $usefulans = [ grep { $$_[ 0 ] eq $answer } @$qablock ];