$out{shift @ref} = [splice @ref,0,2] while @ref;