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