You're right about the mistake, except that what grep returns is already a hashref so by adding [ ] around it, you make an array of array

You can just provide a list context to the expression with ($usefulans,) (the comma is optional, but I put it there to show that the parenthesis is there to force list context), which will put the first result into $usefulans and drop the others. But since there should be only one match ...

$VAR1 = [
          [
            'a',
            'W',
            'interupt'
          ],
          [
            'b',
            'R',
            'interrupt'
          ],
          [
            'c',                                                      
+                                                                     
+                                                                     
+                    
            'W',                                                      
+                                                                     
+                                                                     
+                    
            'innterupt'                                               
+                                                                     
+                                                                     
+                    
          ],                                                          
+                                                                     
+                                                                     
+                    
          [                                                           
+                                                                     
+                                                                     
+                    
            'd',                                                      
+                                                                     
+                                                                     
+                    
            'W',                                                      
+                                                                     
+                                                                     
+                    
            'intterupt'                                               
+                                                                     
+                                                                     
+                    
          ]                                                           
+                                                                     
+                                                                     
+                    
        ];                                                            
+                                                                     
+                                                                     
+                    
($answer,) = grep { $$_[0] eq 'b' } @$VAR1;                           
+                                                                     
+                                                                     
+                    
print "@$answer";

[download]
b R interrupt

But oakb, you should consider a hash (with answer id as the key). You could easily turn your array into one with : %hash = map { shift @$_ => $_ } @$qablock Then you'd just have to do $hash{$givenAnswer} to get ['w', 'interupt']

In reply to Re^2: grep and dereferencing an array of arrays by Eily
in thread grep and dereferencing an array of arrays by oakb

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.