use vars qw(%item %label @code);

my $parser = Parse::RecDescent->new(q(
   ...
	label: /[a-z]\w*/i {
		$main::label{$item[1]} = scalar @main::code;
	}
   ...
));