sub ref_push {
    if ( !$_[0] ) {
        $_[0] = [ @_[1..$#_] ];
    } else {
        push @{$_[0]}, @_[1..$#_];
    }
}