Select Code to Download

    my $usefulans;
    foreach ( @$qablock ) {
...
        }
    }
    print "\t\t----> @$usefulans\n";

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