die if @ref / 3;

##</code><code>##

my %out = map  { $ref[$_] => [ @ref[$_+1..$_+2] ] }
          grep { not $_ % 3 }
          0 .. $#ref;

##</code><code>##

for @ref -> $key, $val1, $val2 {
    %out{$key} = [ $val1, $val2 ];
}

##</code><code>##

my %out = map -> $k, $v, $w {
    $k => [ $v, $w ];
}, @ref;