I'd probably define a new method for that:

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

and call that as

$object->push_x($new_value);
[download]