print_instruction : /print/i expression { use Data::Dumper; print Dumper \%item; print $item{expression}."\n" } | /print/i '(' expression ')' { use Data::Dumper; print Dumper \%item; print $item{expression}."\n" }