Select Code to Download

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

$object->push_x($new_value);