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