use strict; 
use warnings; 
use 5.012;

use Parse::RecDescent;


$::RD_ERRORS = 1; #Parser dies when it encounters an error
$::RD_WARN   = 1; #Enable warnings - warn on unused rules &c.
$::RD_HINT   = 1; # Give out hints to help fix problems.

our %HASH;

my $grammar = <<'END_OF_GRAMMAR';

    startrule : from_clause 

    from_clause : 'from' dir(s) 
                {
                    print "-->@{$item{'dir(s)'}}<-- \n";
                    $main::HASH{dirs} = @{$item{'dir(s)'}}; 
                }

    dir : 'hello'

END_OF_GRAMMAR


my $parser = Parse::RecDescent->new($grammar);
$parser->startrule("from hello world"); 
use Data::Dumper;
say Dumper(\%HASH);

--output:--
-->hello<-- 
$VAR1 = {
          'dirs' => 1
        };