sub ref_push{$_[0]?push@{+shift},@_:shift@{$_[0]=[@_]}}