sub f {
  my@v;{$_=pop;/=>/||(push@v,$_)&&redo}
  $k=pop;$h{$k}=[@v,@{$h{$k}}];@_?&f:\%h
}