Select Code to Download

die if @ref / 3;

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

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

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