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