use Data::Dumper;

   $hashref = {
       key1 => { more => 'less' },
       key2 => { help => 'stop' },
       key3 => { wow  => [ 'list_element_0', '1' , '2' ] },
   };

   print Dumper($hashref);


##</code><code>##


   use Data::Dumper;

   use Parse::RecDescent;

   my $grammer = q{
     record:  id name
    
       id:  m[(.{6})]  { print "id  => $1 " if $1 }
       name: m[(.*)] { print "name => $1 "; }
           };
       my $parser = Parse::RecDescent->new($grammer);

   print Dumper($parser);