sub elem {
    my $self = shift;
    my ($op, $cx, $left, $right, $padname) = @_;
    my($array, $idx) = ($op->first, $op->first->sibling);

    $idx = $self->elem_or_slice_single_index($idx);

    unless ($array->name eq $padname) { # Maybe this has been fixed	
	$array = $array->first; # skip rv2av (or ex-rv2av in _53+)
    }
    if (my $array_name=$self->elem_or_slice_array_name
	    ($array, $left, $padname, 1)) {
	return "\$" . $array_name . $left . $idx . $right;
    } else {
	# $x[20][3]{hi} or expr->[20]
	my $arrow = is_subscriptable($array) ? "" : "->";
	return maybe_parens_lhs_arrow($self->deparse($array, 24), $arrow)
	  . $left . $idx . $right;
    }
}

sub maybe_parens_lhs_arrow {
    my ($lhs, $arrow)   = @_;
    return "($lhs)$arrow"
      if ($arrow eq "->" and $lhs !~ /^[$@%&(*]/);
    return "$lhs$arrow";
}