@item

#!/usr/bin/env perl

use strict;
use Parse::RecDescent;
use Data::Dumper;

my $grammar =
q{
    inputs : 'a' 'b' { print "* ", Data::Dumper::Dumper(@item);
                       print "* ", Data::Dumper::Dumper($item[0]); 
                       print "* ", Data::Dumper::Dumper($item[1]); 
                       print "* ", Data::Dumper::Dumper($item[2]);
                       print "* ", Data::Dumper::Dumper($item[-1]); }
};

my $parse = new Parse::RecDescent ($grammar);

while (<>)
{
    defined $parse->inputs($_) or print "Bad text!\n";
}

で、

ab
* $VAR1 = 'inputs';
$VAR2 = 'a';
$VAR3 = 'b';
* $VAR1 = 'inputs';
* $VAR1 = 'a';
* $VAR1 = 'b';
* $VAR1 = 'b';