Select Code to Download

...
push @$obj, qw ( 12 19 35 37 48 98 25 );
...

$obj->push(qw ( 12 19 35 37 48 98 25 ));