while (@ref) {
  my $k = shift(@ref);
  $out{$k} = [ shift(@ref), shift(@ref) ];
}