Select Code to Download

@a = (
      [1,2,{foo=>"foo",bar=>"bar"}],
      [3,4,{baz=>"baz",far=>"baz"}]
     );

$r = [
      [1,2,{foo=>"foo",bar=>"bar"}],
      [3,4,{baz=>"baz",far=>"baz"}]
     ];