Select Code to Download

$VAR1 = [
          [
            'a',
...
        ];                                                            
+                                                                     
+                                                                     
+                    
($answer,) = grep { $$_[0] eq 'b' } @$VAR1;                           
+                                                                     
+                                                                     
+                    
print "@$answer";