sub my_push {
    my(@array, @list) = @_;
    ...

##</code><code>##

  sub my_push (\@@) {
    my($array_ref, @list) = @_;
    ...