Select Code to Download

use strict;
use warnings;
...
my $answer = 'r1c0';
my ($usefulans) = grep {$$_[0] eq $answer} @$qablock;
print "\t\t----> @$usefulans\n";

        ----> r1c0 r1c1 r1c2