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