sub push_x {
  my $self = shift;
  push @{$self->{x}},@_;
#        ^^^^^^^^^^ or whatever the internal representation is
}

##</code><code>##

$object->push_x($new_value);