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

##</code><code>##

2 => [ 0, 1 ],
5 => [ 3, 4 ]
etc.

##</code><code>##

die if @ref % 3;
$out{$a} = [splice @ref,0,2] while $a = shift @ref;